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Editorial 



UNA GRAN NOTICIA 



Este mes ofrecemos una gran noticia a nuestros 
lectores. A iniciativa de una de las más importantes 
empresas españolas de software, desde el primer día 
de marzo los precios de los videojuegos comerciales 
van a bajar radicalmente su precio. 

Por las informaciones de que disponemos en el mo- 
mento de cerrar este número, la iniciativa ha encon- 
trado una acogida positiva entre el resto de empresas 
del sector, muchas de las cuales han anunciado su in- 
tención de adherirse. 

Es obvio que para nuestros lectores ésta no es una 
novedad cualquiera, pues se trata de un descenso de 
precios que, en algunos casos, puede situarlos en tan 
sólo una cuarta parte del que antes tenían en el mer- 
cado. 

Sin embargo, las consecuencias de esta medida re- 
basan este aspecto, aun siendo fundamental. Además 
de acabar con un mecanismo que mantenía los pre- 



cios artificialmente altos y, por tanto, perjudicaba de 
forma injustificada al usuario, con las nuevas tarifas 
el mercado tenderá a ser más dinámico, más recep- 
tivo a nuevas ideas e iniciativas y, como consecuen- 
cia, a expandirse. Hay que esperar que esta mayor 
demanda redunde beneficiosamente sobre la produc- 
ción nacional de software y la industria de comercia- 
lización que se genera en torno a ella. 

Las nuevas tarifas entran en vigor a partir del 
mismo día en que esta revista se pone a la venta. Es- 
tamos ante una gran noticia para los jóvenes aficio- 
nados a los videojuegos y que, en muchos casos, no 
disponían del poder adquisitivo necesario. 

Sin duda, entre usuarios, productores y distribui- 
dores existe conciencia de que la producción interna 
de software necesitaba de este tipo de medidas para 
desarrollarse y abandonar su estado de dependencia. 

Esperemos que así sea. 



LOS MEJORES DE INPUT 

Hemos pensado que es interesante disponer de un ranking que El resultado de las votaciones será publicado en cada número 



ponga en claro, mes a mes, cuáles son los programas preferidos 
de nuestros lectores. Para ello, es obligado preguntaros directamen- 
te y tener así el mejor termómetro para conocer vuestras preferen- 
cias. Podéis votar por cualquier programa aunque no haya sido co- 
mentado todavía en INPUT. 



de INPUT 

Entre los votantes sortearemos 10 cintas de los títulos que pidáis 
en vuestros cupones. 

Nota: No es preciso que cortéis la revista, una copia hecha a 
máquina o una simple fotocopia sirven. 



Enviad vuestros votos a: LOS MEJORES DE INPUT Aribau, 185. Planta 1. 08021 Barcelona 



ELIGE TUS PROGRAMAS 



I Primer título elegido I i i i i i i \ i i i i i i i L Segundo título elegido ■ i ■■■■■■■ t ■■■ ■ L ] 

• Tercer título elegido I i i i i i i i i i i i i i i l Programa que te gustaría conseguir I i i i i i i i i i l . 

[ Qué ordenador tienes I i i i i i i i i I Nombre l_j i i i i i i i i i i i i i i i i L • 

1." Apellido I i i i i i i i i i i I i i i i i L 2.° Apellido I i i i i i i i i i i i i i i i i l \ 

Fecha de nacimiento I i i i i i i i i i i i i i i I Teléfono I i i i i i i i i i i i i i i i i i l 

Dirección | i i i i i i i i i i i i i i i i i I Localidad I i i i i i i i i i i i i I 

I Provincia I i i i i i i i i i i i i I | NPUT MSX N.° 10 

I i 
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Aplicocione^ 





IMPRESION Y LECTURA 
DE DIRECTORIOS 



LIMITACIONES DE FILES Y DIR 



EL PROGRAMA 



DEFINICION DE VARIABLES 



MENU 



PRESENTACION E IMPRESION 



Los afortunados poseedores de uni- 
dad de disco sabrán qué fácil es perder 
toda la información almacenada en un 
diskette por un mal trato o por no tener 
protegido éste contra escritura. 

Los usuarios de diskettes debemos 
tener en mente que siempre es prefe- 
rible contar con una copia de segu- 
ridad. 

El programador que trabaja en có- 
digo máquina (o en BASIC) a veces 
necesita saber qué tiene almacenado 
en un diskette determinado. Si traba- 
jamos desde el disk-basic el comando 
FILES nos indicará tan sólo los nom- 
bres de los programas almacenados, 
pero si cargamos el sistema operativo 
DOS y usamos el comando DIR, ade- 
más de los nombres de los ficheros ob- 
tendremos la longitud (en bytes) y la 
fecha de entrada en disco de cada uno 
de ellos. Pero no se nos informa de 
qué tipo de ficheros son: DOS, BA- 
SIC o código máquina. Y si son fiche- 



ros de este último tipo no sabemos sus 
direcciones de inicio, fin y ejecución. 

Con el programa que a continuación 
os presentamos podréis saber (por im- 
presora o por pantalla) el nombre de 
los programas qué hay en el diskette, 
el tipo de programa, la longitud en by- 
tes de éste y sus direcciones (si es que 
las posee). 

Dando un vistazo al programa, 
comprobamos que está muy estructu- 
rado. A grandes rasgos, consta de seis 
partes bien diferenciadas. 

La primera comienza en la línea 100 
y acaba en la 110, y es la que define 
las variables fundamentales en las que 
se guardan las características de los fi- 
cheros: NN$ (nombre del fichero), 
LOS (longitud), DES (dirección inicio 
programa), FIS (dirección final), ST$ 
(dirección de ejecución). 

La segunda parte, líneas 130-310, es 
la que muestra el menú por pantalla. 
Entre las opciones que disponemos es- 
tán las de lectura de diskette de una o 



dos caras, pudiendo salir el directorio 
por la misma pantalla o por impresora 
(sea MSX o no). Otra opción es la de 
poder ver un fichero en especial. La 
última opción es la de regreso al BA- 
SIC. 

De las líneas 330 y 660 hallamos la 
estructura básica de lectura (330) y la 
indicación del tipo de programa: có- 
digo máquina (500), basic (510), d.o.s 
(530). 

La cuarta y quinta son muy simila- 
res: en la cuarta la lectura del diskette 
se visualiza por pantalla indicando las 
direcciones de inicio (750), fin (770) y 
ejecución (790) del programa, si es có- 
digo máquina, y la longitud en bytes. 
La quinta parte es quasi-idéntica so- 
lamente que sale el directorio por im- 
presora: así las instrucciones PRINT 
USING se cambian por LPRINT 
USING (920-1040). 

El último bloque consiste en la lec- 
tura y salida por pantalla de la infor- 
mación de un fichero en concreto. 



100 CLEAR5000 

110 DIMNN$(120),NA$(120) f LO(120),DE$(120),FI$(120),ST$(120),SE(210) 
120 ' Menú principal 

SCREEN0:KEYOFF:WIDTH38 



130 

140 L0CATE3,3:PRINT 

150 L0CATE3,6:PRINT" 

155 L0CATE3,8:PRINT" 

160 LOCATE3,7:PRINT" 

165 LOCATE3,10:PRINT" 

170 L0CATE3,9:PRINT" 

175 LOCATE3,10:PRINT" 

180 L0CATE3,11:PRINT" 

185 L0CATE3,12:PRINT" 

190 L0CATE3,13:PRINT" 

195 L0CATE3,14:PRINT" 

200 L0CATE3,15:PRINT" 

205 L0CATE3,16:PRINT" 

210 L0CATE3,17:PRIÑT" 

215 L0CATE3,18:PRINT" 

216 L0CATE3,22:PRIIMT" 



* * * * * i 



LECTOR DE DISKETTES 



***★*»» 







1 


Lectura directorio 1DD 


2 


Lectura directorio 2DD 


3 


Directorio por pantalla 


4 


Directorio por impresora 


5 


Información de ficheros 


6 


Finalizar 



******** 



DIGITE OPCION 



********* 



INPUT 5 



Aplicaciones 



220 GOSUB1060 

230 IFA$<"1"ORA$>"7*THEN220 

240 IFA$ = "1"THENSD=5:GOTO330 

250 IFA$ = "2"THENSD=7:GOTO330 

260 IFDI = 0THENGOTO1300 

270 IFA$ = "3"THEN670 

280 IFA$ = "4"THEN850 

290 IFA$ = "5"THEN1080 

300 IFA$ = "6"THENKEY0N:CLS:END 

310 GOTO220 

320 ' Lectura del diskette 

330 AS = PEEK(&HF351) + 

256*PEEK(&HF352):0UT&HAB, 
12:P0KE&HFCAB,&HFF 



480 NEXT K,I:N0 = N0-1 

490 F0RI = 1T0N0:A$ = DSKI$(1, 

SE(I)):K = PEEK(AS) 
500 IFK=&HFETHENNA$(l) = "Maqu¡na":GOTO560 
510 IFK = &HFFTHENNA$(l) = "Bas¡c":GOTO 650 
520 IFK = &H20THENNA$(l):"Fichero":GOTO 650 

530 IFK=&HC3THENNA$(I) = "MSX-D0S":G0T0 
650 

540 IFK = &H31THENNA$(l) = "Ascü":G0T0 650 

550 NA$(l) = "Desconoc¡do":GOTO 650 

560 J = PEEK(AS+l):J=J + (PEEK(AS + 2)*256) 

570 A$=HEX$(J):J = LEN(A$) 

580 DE$(I) = STRING$(4-J,"0")+A$ 

590 J = PEEK(AS + 3):J=J + (PEEK(AS+4)*256) 




340 DI = l:CLS:LOCATE5,12:PRINT"Leyendoel 600 

directorio..." 610 

350 RE = DSKF(1):RE = RE*1024 620 

360 N0=1:F0RI = SDT0SD + 6:A$ = DSKI$(1,I) 630 

370 FOR K = 0 TO 511 STEP 32:A$ = "" 640 

380 IFPEEK(AS + KX32THENK = K + 32:GOTO480 650 

390 IFPEEK(AS + K)>123THENK = K+32:GOTO480 660 

400 FORJ=0TO7:A$ = A$ + CHR$(PEEK(AS + K+J)) 670 

410 NEXT:A$+A$ + ".":FORJ = 0TO2 680 

420 A$ = A$ + CHR$(PEEK(AS+K+8+J)):NEXT 690 

430 NN$(NO) = A$:J = PEEK(AS+K + 26) 700 

440 J=J*2 + SD + 3:SE(NO)=J + (PEEK(AS + K + 27)* 710 

512) 720 

450 J = PEEK(AS + K + 28) 730 

460 LO(NO)=J + (PEEK(AS + K + 29)*256) 740 

470 NO=NO+l 750 



A$ = HEX$(J):J = LEN(A$) 

FI$(I) = STRING$(4-J,"0") + A$ 

J = PEEK(AS + 5):J=J + (PEEK(AS + 6)*256) 

A$ = HEX$(J):J = LEN(A$) 

ST$(I) = STRING$(4-J,"0")+A$ 

NEXT 

GOTO 120 

' Directorio por pantalla 

CLS 

C=0 

C=C+1 

PRINTUSING" " ; NN$(C); 
PRINTUSING "########";LO(C) ; 
PRINT" b. "i 

IFNA$(C)o"Maquina"THEN810 
PRINTUSING" ";DE$(C) ; 
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Aplicaciones 



760 PRINT ; 


1090 


CLS :L0CATE6, 2: PRINT INFORMACION DE 


770 PRINTUSING" ";FI$(C) ; 




UN FICHERO" 


780 PRINT ; 


1100 


PRINT:PRINT 


790 PRINTUSING" ";ST$(C) 


1110 


L0CATE4,4:PRINT"Pulse la barra 


800 GOTO830 




espaciadora hasta" 


810 PRINTNA$(C) 


1111 


L0CATE4,5:PRINT que aparezca el nombre 


820 IFC/20=INT(C/20)THENGOSUB1060 




del fichero" 


830 IF C<NO THEN 700 


1 112 


L0CATE4.6: PRINT deseado y luego RETURN. 


840 GOSUB1060:GOTO120 


1120 


N = 0 


850 ' Directorio por impresora 


1130 


L0CATE7.18 


860 CLS 


1140 


N = N + 1 


870 L0CATE8, 18:PRINT"Prepare la impresora" 


1150 


PRINTNN$(N) 


871 LOCATE8,20:PRINT"y pulse una tecla... 


1160 


E=0 


880 GOSUB1060 


1170 


GOSUB1060 


900 C = 0 


1180 


IFASC(A$)o32ANDASC(A$)ol3THEN 


910 C=C+1:CLS:L0CATE8, 10 




1170 


920 PRINTNN$(C);:LPRINTUSING ;NN$(C) 


1 190 


IFASC(A$)=13THEN1220 


930 LPRINTUSING ####### ;LO(C); 


1200 


IFNO = NTHEN 120 


940 LPRINT b. ; 


1210 


GOTO1130 


950 IFNA$(C)o"Maquina"THEN1020 


1220 


CLS:LOCATE7,9:PRINT"Nombre: ";NN$(N) 


960 LPRINTUSING" ";DE$(C); 


1230 


LOCATE7,ll:PRINT"Tipo : ";NA$(N) 


970 LPRINT" "; 


1240 


L0CATE7, 12:PRINT"Longit.: ";LO(N) 


980 LPRINTUSING" ";FI$(C); 


1250 


IFNA$(N)o"Maquina"THEN1290 


990 LPRINT" "; 


1260 


L0CATE7, 13:PRINT"Dir.in.: &H" ; DE$(N) 


1000 LPRINTUSING" ";ST$(C) 


1270 


L0CATE7,14.PRINT"Dir.fin: &H" ; FI$(N) 


1010 GOTO1030 


1280 


LOCATE7,15:PRINT"Dir.ej.: &H" ; ST$(N)(N) 


1020 LPRINTNA$(C) 


1290 


LOCATE2,20:PRINT"Pulse una tecla para 


1030 IF C<NO THEN 910 




volver al menu":GOSUB1060:GOTO120 


1040 LPRINT.LPRINT" "RE"bytes libres." 


1300 


CLS:LOCATE2,20:PRINT"Primero debe 


1050 GOSUB1060:GOTO120 




cargar el directorio" 


1060 A$ = INKEY$:IFA$ = ""THEN1060 


1301 


LOCATE2,21:PRINT"del disco en memoria 


1070 RETURN 




del ordenador." 


1080 ' Información de ficheros 


1310 


FORN = 1TO2000:NEXT:GOTO120 



GANADORES DE LOS MEJORES DE INPUT MSX 


En el sorteo correspondiente al número 15 entre quienes escribisteis mandando vuestros votos a LOS 




MEJORES DE INPUT han resultado ganadores: 


NOMBRE 


LOCALIDAD 


JUEGO ELEGIDO 


Joan Kildal Oquiñena 


Andoain (Guipúzcoa) 


CAMELOT WARRIORS 


Ramón Casas Llobet 


Barcelona 


SOCCER 


José M. Granados Colillas 


Sallent (Barcelona) 


GREEN BERET 


Francisco Belluer Alcántara 


Valencia 


GREEN BERET 


José Luis Pérez González 


Madrid 


GREEN BERET 


David Terrón Panizo 


Huesca 


THE GOONIES 


Feo. Javier Reinaldo Ortega 


Viladecans (Barcelona) 


GREEN BERET 


Albert González Molina 


Barcelona 


DAMBUSTERS 


Marc Campas Arcarons 


Torelló (Barcelona) 


JACK THE NIPPER 


Luis García Mulet 


Oviedo (Asturias) 


HERO 



INPUT 7 



Programación 



SWAPS 

NUMEROS INVERTIDOS 



■ 


IMPORTANCIA 


DE LA PRESENTACION 


■ 


EL JUEGO 


■ 


DOMINAR LAS 


COMBINACIONES 



¿Podrás ordenar una serie de nueve 
números, de menor a mayor, pero invir- 
tiendo sus posiciones en bloques com- 
pactos de cuatro o cinco números? Éste 
es el reto que te plantea SWAPS, el juego 
de los números invertidos, un rompe- 
cabezas que combina lógica y matemá- 
ticas, fomentando el desarrollo de la abs- 
tracción. 

Dada la extensión de este artículo, 
hemos creído necesario dividir su con- 
tenido en dos números de la revista. 
En esta primera parte, hablaremos de 
cómo se configura la presentación y 
del funcionamiento del juego. En el si- 
guiente número publicaremos las ru- 
tinas para que podáis poner a prueba 
\ ucstra habilidad. 

Ahora hablaremos del esqueleto 
fundamental del programa y de las sub- 
rutinas necesarias para realizar la pre- 
sentación. De esta forma podréis ver 
la presentación y comprobar, a la vez, 
que la introducción de esta parte es 
correcta, en espera del siguiente nú- 
mero. 

En el próximo INPUT MSX, expli- 
caremos el funcionamiento del pro- 
grama, y publicaremos la segunda 
parte del mismo, con lo cual dispon- 
dréis del juego completo. 

LA PRESENTACIÓN 

Hay una parte del programa en los 
juegos, a la que, por regla general, no 
damos la importancia que merece, 
como es la presentación. 

Una carátula bien pensada, con una 
elaboración cuidada, contribuirá en 
gran parte al éxito del juego. 

Por esta razón, con las magníficas 
opciones que os brinda vuestro orde- 
nador MSX y un poco de imaginación, 
también podréis sentiros creativos. 

Nosotros, con la presentación que 
incluimos en nuestro programa, he- 
mos intentado aportar ese granito de 



arena al diseño, como fiel represen- 
tante del juego que figura a continua- 
ción. 

La presentación es como sigue: En 
primer lugar, aparece una pantalla de 
un color asalmonado, que va llenán- 
dose de números de color negro. 

Una vez llena de números que sir- 
ven de trama al fondo de la pantalla, 
se generan unas letras con el nombre 
del juego, que están degradadas pa- 
sando del color amarillo al azul. 

A cada letra se le ha asignado una 
intensidad de color, entre los cinco ni- 
veles que hay de un color al otro, 
puesto que son cinco las letras que 
componen el nombre SWAPS. 

Las letras empiezan a moverse, des- 
plazándose por la pantalla y cruzán- 
dose entre sí, hasta ocupar cada una el 
lugar correcto para completar el nom- 
bre, quedando, a la vez, perfecta- 
mente ordenados los niveles de gra- 
dación de color. 

Figura unos segundos en pantalla, 
mientras comienza a desaparecer el 
fondo gradualmente. 

EL JUEGO 

El SWAPS es un divertido y entre- 
tenido juego en el que podéis agudizar 
vuestro ingenio y habilidad mental. 

Se trata de ordenar correlativa- 
mente de menor a mayor, una lista de 
números que va del 1 al 9. 

A simple vista parece un juego fácil, 
ya que sustituir un número por otro no 
tiene dificultad alguna; pero hay un 
pequeño inconveniente, y es que el 
programa no contempla esta opción. 

Para manejar los desplazamientos 
de los números usamos las teclas de 
función. Cada una de ellas está encar- 
gada del movimiento de una zona de 
la hilera de nueve números. 

Las posibles combinaciones son las 
siguientes: 

— La tecla Fl invertirá las cuatro pri- 



meras posiciones, es decir, la posición 

1, 2, 3 y 4, por posición 4, 3, 2 y 1. 
— La tecla F2 invertirá las posiciones 

2, 3, 4 y 5, por posición 5, 4, 3 y 2. 
— La tecla F3 invertirá las posiciones 

3, 4, 5, 6 y 7, por posición 7, 6, 5, 4 y 
3. Como veis, giran las cinco cifras, 
pero la que ocupa la posición central 
no cambia de lugar. 

— La tecla F4 invertirá las posiciones 

5, 6, 7 y 8, por posición 8, 7, 6 y 5. 
— La tecla P5 invertirá las posiciones 

6, 7, 8 y 9, por posición 9, 8, 7 y 6. 
AI inicio del juego veremos tres 

pantallas: En la primera, la máquina 
os retará a jugar, en la segunda, os 
dará las instrucciones del juego, y en 
la tercera, explicará los movimientos 
de las teclas de función, con ejemplos 
aclaratorios del funcionamiento. 

Durante el juego, en la parte supe- 
rior de la pantalla aparecerán unos 
contadores a modo de marcador. En 
ellos se representan el número de in- 
tentos realizados hasta la actual com- 
binación, y el tiempo transcurrido 
desde el comienzo. 

En la pantalla también figurará la 
posición de las cifras de la jugada an- 
terior, y la presente, representada en 
otro color que la diferencia del resto. 

Cada una de las informaciones que 
el ordenador nos presenta en la pan- 
talla lo hace dentro de una ventana 
que simula un cierto relieve sobre el 
fondo. 

Para la solución no hemos estable- 
cido ningún límite de intentos ni de 
tiempo, pero lo que sí podemos ase- 
gurar es que el juego siempre tiene so- 
lución. 

Asegurar la solución es un punto 
importante en un juego de esta índole, 
ya que la secuencia de números que 
aparecen en la pantalla son el resul- 
tado de cinco combinaciones de las te- 
clas de función, generadas por el pro- 
grama, lo que permitiría hallar en 
cinco combinaciones — si son las co- 
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rrectas — la colocación ordenada de 
los números. 

En caso de no acertar la combina- 
ción ideal, no os deis por vencidos, ya 
que el programa os brinda como 
ayuda la opción de poderle pedir la so- 
lución, partiendo de la cifra obtenida 
en el último movimiento. Simple- 
mente hay que pulsar la tecla F6, y a 
continuación la máquina os indicará 
cuáles son las inversiones a realizar 
para llegar al final. 

Si hacéis uso de esta opción, debe- 
réis retener mentalmente las cifras in- 
dicadas, ya que desaparecerán de la 
pantalla a los pocos segundos. 

Si la combinación fuera extrema- 
damente complicada, es decir, que 
fuera necesario emplear muchas in- 
versiones para llegar a la solución, el 
microprocesador diría muy difícil, ne- 
gando la ayuda hasta que el jugador 
mejorase las posiciones de las cifras. 
Esto significa que el número de inver- 
siones a realizar es tan grande, que su- 
pera el espacio que tiene destinado en 
la pantalla para su impresión. 

La ventana donde se representan 
estos números tiene una capacidad 
para 16 posibles combinaciones; pero 
el programa no ignora el resultado, ya 
que puede retener hasta 256 inversio- 
nes. Al mejorar la jugada, si volvéis a 
pedir ayuda, os la dará siempre que la 
solución sea inferior a 16 movimien- 
tos. 

Si por error pulsáis una tecla equi- 
vocada, simplemente debéis volver a 
pulsarla, para colocar la combinación 
de números en la posición anterior, ya 
que de nuevo volverá a invertir las 
mismas cifras. 

Al finalizar el juego, recibiréis la fe- 
licitación del ordenador, que además 
os informará de en cuántos intentos y 
tiempo habéis conseguido el triunfo, 
así como de cuántas ayudas habéis re- 
cibido durante la partida. 

Si deseáis elevar el grado de com- 
plejidad de la solución del juego, en 
vez de cinco combinaciones de teclas, 
se puede determinar un número su- 
perior de movimientos. Es importante 
aclarar, que al decir 5 combinaciones 
de teclas, nos referimos a que 5 son las 
inversiones que realiza el programa 
antes de empezar la partida, no que se 




pueda ampliar la cantidad de teclas dé 
función. 

El programa está estructurado de 
forma que el usuario pueda alterar ese 
valor, que viene definido por una 
constante interna del programa. 

Tras el previo estudio del juego, e 
incidiendo sobre el tema, creemos que 
al aumentar el nivel, las partidas po- 
drían extenderse excesivamente, tanto 
en grado de dificultad como en 
tiempo, pudiendo hacer peligrar el in- 
terés hacia el mismo. 

Si llegáis a conocer demasiado el 
juego, de forma que podáis intuir rá- 
pidamente la solución, tenéis la posi- 
bilidad de acceder al programa, y al- 
terar los cambios asignados a cada te- 
cla de función. De esta manera crea- 
réis una nueva variante sobre el juego. 

Al variar la función de las teclas, las 
partidas siguen teniendo solución, ya 
que el ordenador confeccionará la lista 
desordenada, con las combinaciones 
que halle en las citadas teclas de fun- 
ción. 

El SWAPS no está pensado para un 
número determinado de jugadores. 
En caso de ser más de un jugador, de- 
béis ser vosotros mismos quienes con- 
feccionéis unas normas para el juego. 



como podría ser: fijar un número de 
intentos o de tiempo, etc., pero esa se- 
lección la dejamos en vuestras manos. 

Si estáis dispuestos a pasar un rato 
divertido, aceptad el reto que os hace 
SWAPS 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 



p ************************* 
» ★ ★ 

•* == SWAPS == * 

» ★ * 

'* Juego de los números * 

'* invertidos. 

» * ★ 

PonJ.Garci 
i * * 

'* REVISTA INPUT MSX * 

» * * 
» ************************* 

CLEAR 400 
'Ihicializacion 

I 

GOSUB 700 :'sistema 1 
GOSUB 770 :'colores 
GOSUB 880 :'def sprites 
'Presentación 



GOSUB 1350:'num fondo 
GOSUB 1470:'display letras 



INPUT 9 



320 GOSUB 1560:'primer 

desplazamiento 
330 GOSUB 1690:'segundo 

desplazamiento 
340 GOSUB 1890:'firma 
350 GOSUB 1990:'borra el fondo 
360 'Instrucciones 

370 ' 

380 GOSUB 2080:'sistema 2 

390 GOSUB 2170:'reto 

400 GOSUB 2330:'lnstrucc¡ones 

405 GOTO 660 :'Rn temporal 

410 'Juego 

420 ' 

430 GOSUB 2800:'pantalla juego 
440 GOSUB 4380:'lnicio juego 
450 GOSUB 3340:'generacion 
460 GOSUB 3520:'viejo 
470 GOSUB 3640:'nuevo 
480 GOSUB 3760:'define teclado 
490 GOSUB 4470:'espera jugada 
500 GOSUB 3520:'escribe viejo 
510 GOSUB 4530:'movimiento 
520 GOSUB 4820:'crea solución 
530 GOSUB 4860:'cuenta 
intento 

540 GOSUB 3640:*escribe nuevo 
550 GOSUB 4950:'ver si fin 
560 IF J<9 GOTO 490 
570 'Fin de la partida 

580 ' 

590 GOSUB 5020:'puntuacion 
600 GOSUB 5210:'otra ? 
610 IF A$ = "s" OR A$ = "S" 

GOTO 430 
620 'Fin del juego 

630 ' - 

640 GOSUB 5300: 'restaura 

maquina 
650 CLEAR 
660 END 

670 ' =============== 

680 '= Subrutinas 

690 '=============== 

700 'Sistema 1 
710 ■ 

720 KEYOFF 
730 WIDTH 40 
740 SCREEN 5,3 
750 WIDTH 32 
760 RETURN 
770 'Colores 



780 ' 

790 COLOR = (9,7,3,3):'fondo 
800 COLOR = (10,7,7,3):'letras 
810 COLOR = (ll,6,7,4) 
820 COLOR = (12,5,7,5) 
830 COLOR = (13,4,7,6) 
840 COLOR = (14,3,7,7) 
850 COLOR 1,9,9 
860 CLS 
870 RETURN 
880 'definición de sprites 

890 '— - 

900 'definición del sprite S 

910 ' 

920 S1$=CHR$(&HF) + 

CHR$(&H1F) + CHR$(&H3F) 

+ CHR$(&H38) 
930 S2$=CHR$(&H38) + 

CHR$(&H38) + CHR$(&H3F) 

+ CHR$(&H3F) 
940 S3$=CHR$(&H1F) + 

CHR$(&HF) + CHR$(&HO) + 

CHR$(&HO) 
950 S4$ = CHR$(&H20) + 

CHR$(&H3F) + CHR$(&H3F) 

+ CHR$(&H3F) 
960 S5$ = CHR$(&HFC) + 

CHR$(&HFC) + CHR$(&HFC) 

+ CHR$(&H4) 
970 S6$ = CHR$(&H0) + 

CHR$(&HO) + CHR$(&HFO) + 

CHR$(&HF8) 
980 S7$ = CHR$(&HFC) + 

CHR$(&HFC) + CHR$(&H1C) 

+ CHR$(&H1C) 
990 S8$ = CHR$(&H1C) + 

CHR$(&HFC) + CHR$(&HF8) 

+ CHR$(&HFO) 
1000 SPRITE$(1) = S1$ + S2$ + 
S3$ + S4$ + S5$ + S6$ + 
S7$ + S8$ 
1010 'definición del sprite W 

1020 ' — 

1030 W1$=CHR$(&HF8) + 
CHR$(&H70) + 
CHR$(&H70) + 
CHR$(&H70) 
1040 W2$ = CHR$(&H79) + 
CHR$(&H39) + 
CHR$(&H3B) + 
CHR$(&H3B) 
1050 W3$ = CHR$(&H3F) + 



CHR$(&H1F) + 

CHR$(&H1E) + 

CHR$(&H1E) 
1060 W4$ = CHR$(&H1E) + 

CHR$(&HC) + CHR$(&HC) + 

CHR$(&HC) 
1070 W5$ = CHR$(&H1F) + 

CHR$(&HE) + CHR$(&HE) + 

CHR$(&HE) 
1080 W6$ = CHR$(&H9E) + 

CHR$(&H9C) + 

CHR$(&HDC) + 

CHR$(&HDC) 
1090 W7$=CHR$(&HFC) + 

CHR$(&HF8) + 

CHR$(&H78) + 

CHR$(&H78) 
1100 W8$ = CHR$(&H78) + 

CHR$(&H30) + 

CHR$(&H30) + 

CHR$ 

(&H30) 

1110 SPRITE$(2) = W1$ + W2$ + 
W3$ + W4$ + W5$ + W6$ + 
W7$ + W8$ 

1120 'definición del sprite A 

1130 1 

1140 A1$=CHR$(&H7) + 

CHR$(&H7) + CHR$(&H7) + 

CHR$(&HF) 
1150 A2$=CHR$(&HE) + 

CHR$(&HE) + CHR$(&H1E) 

+ CHR$ 

(&H1C) 
1160 A3$=CHR$(&H1C) + 

CHR$(&H3F) + 

CHR$(&H3F) + 

CHR$(&H38) 
1170 A4$ = CHR$(&H78) + 

CHR$(&H70) + 

CHR$(&H70) + 

CHR$(&HF8) 
1180 A5$ = CHR$(&HE0) + 

CHR$(&HE0) + 

CHR$(&HE0) + 

CHR$(&HF0) 
1190 A6$ = CHR$(&H70) + 

CHR$(&H70) + 

CHR$(&H78) + 

CHR$(&H38) 
1200 A7$=CHR$ 

(&H38) + 



10 INPUT 



1210 
1220 



1230 
1240 
1250 



1260 
1270 
1280 
1290 

1300 

1310 
1320 
1330 



1340 
1350 
1360 
1370 

1380 

1390 
1400 
1410 
1420 
1430 



CHR$(&HFC) + 
CHR$(&HFC) + 
CHR$(&H1C) 
A8$ = CHR$(&H1E) + 
CHR$(&HE) + CHR$(&HE) + 
CHR$(&H1F) 
SPRITE$(3)=A1$ + A2$ + 
A3$ + A4$ + A5$ + A6$ + 
A7$ + A8$ 

'definición del sprite P 



P1$ = CHR$(&H1F) + 

CHR$(&HF) + CHR$(&HE) + 

CHR$(&HE) 

P2$ = CHR$(&HE) + 

CHR$(&HE) + CHR$(&HE) + 

CHR$(&HF) 

P3$ = CHR$(&HF) + 

CHR$(&HE) + CHR$(&HE) + 

CHR$(&HE) 

P4$ = CHR$(&HE) + 

CHR$(&HE) + CHR$(&HE) + 

CHR$(&H1F) 

P5$ = CHR$(&HE0) + 

CHR$(&HF8) + 

CHR$(&H3C) + 

CHR$(&H1C) 

P6$ = CHR$(&H1C) + 

CHR$(&H1C) + 

CHR$(&H3C) + 

CHR$(&HF8) 

P7$ = CHR$(&HE0) + 

CHR$(&H0) + CHR$(&H0) + 

CHR$(&H0) 

P8$ = CHR$(&H0) + 

CHR$(&H0) + CHR$(&H0) + 

CHR$(&H0) 

SPRITE$(4) = P1$ + P2$ + 
P3$ + P4$ + P5$ + P6$ + 
P7$ + P8$ 
RETURN 

'números de fondo 



A$="0573495485390859 
34917562482746328" 
A$="A$+"169574548762 
314841578245793651" 
K = 0 

OPEN "grp : " AS #1 
FOR Y=l TO 24 
K=l + ((K + 3) MOD 7) 
PRESET (0,Y*8) 



1440 
1450 
1460 
1470 
1480 
1490 XI 
1500 
1510 
1520 



PRINT#1,MID$(A$.K,32) 
NEXT Y 
RETURN 
'display letras 



1570 
1580 
1590 



10:Y1 = 10:C1 = 14 
X2 = 60:Y2=10:C2=11 
X3=110:Y3=10:C3 = 12 
X4=160:Y4=10:C4=13 
1530 X5 = 210:Y5=10:C5-10 
1540 GOSUB 1810 
1550 RETURN 
1560 'primer desplazamiento 



Y=10 
FOR 1 = 1 
TO 100 
1600 X1 = 10:Y1 = Y 
1610 X2 = 60 + I:Y2 = Y 
1620 X3 = 110:Y3=Y 
1630 X4=160-l: 

Y4=Y 
1640 X5 = 210:Y5-Y 
1650 GOSUB 1810 
1660 Y=Y+1 
1670 NEXT I 




INPUT 1 



Programo**" 



1680 RETURN 

1690 'segundo desplazamiento 

1700 1 

1710 FOR 1 = 1 TO 100 
1720 X1 = 10 + (2*I):Y1=Y 
1730 X2=160-I:Y2 = Y 
1740 X3=110:Y3=Y 
1750 X4 = 60 + I:Y4=Y 
1760 X5 = 210-(2*I):Y5=Y 
1770 GOSUB 1810 
1780 Y=Y-1 
1790 NEXT I 
1800 RETURN 
1810 'colocación de sprites 

1820 ' 

1830 PUT SPRITE 0,(X1 ,Y1),C1 , 
1 

1840 PUT SPRITE 2,(X2,Y2),C2, 
2 

1850 PUT SPRITE 4, (X3,Y3),C3, 
3 

1860 PUT SPRITE 6 > (X4,Y4),C4, 
4 

1870 PUT SPRITE 8, (X5,Y5),C5, 
1 

1880 RETURN 
1890 'Firma 

1900 ' 

1910 COLOR 7 

1920 PRESET (40,100) 

1930 PRINT #1, "PROGRAMA DE 

LA REVISTA" 
1940 PRESET (40,130) 
1950 PRINT #1," I N P U T - M 

S X " 

1960 PRESET (44,160) 
1970 PRINT #1," PLANETA - 

AGOSTINI" 
1980 RETURN 
1990 'decolorar el fondo 

2000 ' 

2010 FOR K = 7 TO 0 STEP -1 
2020 FOR T=l TO 200:NEXT T 
2030 Q=INT(K/2) 
2040 COLOR = (9,K,Q,Q) 
2050 NEXT K 

2060 FOR T=l TO 150:NEXT T 
2070 RETURN 
2080 'Sistema 2 

2090 ' 

2100 SCREEN 0 
2110 WIDTH 40 

12 INPUT 



2120 COLOR = NEW 

2130 COLOR 15,4,4 

2140 CLS 

2150 KEY OFF 

2160 RETURN 

2170 'Reto al jugador 

2180 '- 

2190 WIDTH 28 

2200 PRINT" S W A P S ...." 

2210 PRINT:PRINT-.PRINT 

2220 PRINT"Un reto contra los 

números" 

2230 PRINT"desordenados 



2240 PRINT:PRINT:PRINT 
2250 PRINT'Todras ordenar la 
lista de" 

2260 PRINT"numeros que genero 

7 

2270 PRINT:PRINT:PRINT 
2280 PRINT"INTENTALO !" 
2290 T=TIME 

2300 IF TIME<T + (5*50) GOTO 

2300 
2310 CLS 
2320 RETURN 
2330 'Instrucciones 

2340 ' 

2350 CLS 

2360 WIDTH 60 

2370 PRINT" INSTRUCCIONES 

DE FUNCIONAMIENTO." 
2380 PRINT" = = = = = = = = = = = 



2390 PRINT 

2400 PRINT" La maquina genera 

inicialmente una 

secuencia" 
2410 PRINT 

2420 PRINT" de nueve números 

desordenados." 
2430 PRINT 

2440 PRINT" Se trata de ordenar 
la lista en orden creciente" 
2450 PRINT 

2460 PRINT" empleando las 
teclas de función para 
realizar" 

2470 PRINT 

2480 PRINT" las inversiones 
siguientes:" 



2490 PRINTiPRINT 

2500 PRINT" (Pulsa 

espacio para continuar) 
2510 A$ = INKEY$:IF A$<>" " 

GOTO 2510 
2520 CLS 

2530 PRINT" Fl invierte las 

cuatro primeras cifras" 
2540 PRINT 

2550 PRINT" 432156789 
+ (Fl) =12345678 
9" 

2560 PRINT 

2570 PRINT" F2 invierte las 

cuatro segundas cifras" 
2580 PRINT 

2590 PRINT" 154326789 
+ (F2) = 12345678 
9" 

2600 PRINT 

2610 PRINT" F3 invierte las 

cinco cifras centrales" 
2620 PRINT 

2630 PRINT" 127654389 
+ (F3) =12345678 
9" 

2640 PRINT 

2650 PRINT" F4 invierte las 
cuatro penúltimas cifras" 
2660 PRINT 

2670 PRINT" 123487659 
+ (F4) = 12345678 
9" 

2680 PRINT 

2690 PRINT" F5 invierte las 

cuatro ultimas cifras" 
2700 PRINT 

2710 PRINT" 123459876 
+ (F5) = 12345678 
9" 

2720 PRINT 

2730 PRINT" F6 muestra la 

solución de la partida" 
2740 PRINT 

2750 PRINT" (pulsa 
espacio para iniciar el 
juego)" 

2760 A$ = INKEY$:IF A$<>" " 

GOTO 2760 
2770 CLS 
2780 WIDTH 40 
2790 RETURN 
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ARQUITECTURA 
DEL ORDENADOR 



NIVEL DE USUARIO 



LENGUAJES DE ALTO NIVEL 



SISTEMA OPERATIVO 



LENGUAJE MAQUINA 



MICROPROGRAMACION 



En nuestro artículo anterior hicimos 
referencia a la historia de los micros. El 
porqué del nacimiento del Z80, así como 
una introducción a la estructura del mi- 
croordenador. 

En el presente trabajo vamos a ana- 
lizar las jerarquías del computador, lo 
que nos ayudará a aclarar algunos con- 
ceptos sobre los niveles que podemos en- 
contrar en un ordenador. 

Bueno será comenzar por traer a 
nuestro recuerdo a aquel señor de la 
bata blanca, que formó parte del im- 
portante proceso evolutivo de los or- 
denadores. 

En la década de los 70 había una 
perfecta dicotomía entre el Hardware 
y el Software. Es decir, realizar una 
operación en apariencia simple, como 
una división, en lenguaje máquina era 
una tarea laboriosa para los especia- 
listas, ya que el ordenador no disponía 
de esas instrucciones y debía ser cons- 
truida mediante subrutinas. 

Este proceso obligaba a que los pro- 
gramas siempre fueran acompañados 
de una serie de subrutinas, que servían 
para potenciar el lenguaje máquina 
que resultaba pobre. 

Con los avances tecnológicos llega- 
ron los nuevos microprocesadores, 
que llevaban ya en el Hardware unas 
instrucciones que facilitaron en gran 
manera el desarrollo del Software, 
contribuyendo a la desaparición de 
funciones que hasta entonces se ha- 
cían por programa. 

Un representante de esta tecnología 
avanzada es el conocido Z80. 

El Z80 es capaz de realizar todas las 
instrucciones de su predecesor 8080, y 
además incorpora nuevos códigos de 
operación antes no definidos, que ge- 
neran nuevas instrucciones. Algunas 
de ellas son las que podemos definir 
como funciones migratorias, ya que 
para realizarlas con el antiguo 8080 se- 
ría preciso emplear un conjunto de 



ellas formando una subrutina, que 
ocuparía más espacio en memoria au- 
mentando también el tiempo de eje- 
cución. 

Un ejemplo de estas funciones mi- 
gratorias podría ser la instrucción 
LDIR, que es una instrucción de mo- 
vimiento de cadenas que se utiliza en 
gestión de bloques de memorias, así 
como en gestión de textos. 

Antes de su existencia había que ha- 
cer un programa que realizara esta 
función. Ahora, simplemente basta 
inicializar los parámetros que precise 
y ejecutar a continuación una sola ins- 
trucción. 

Si tuviéramos que copiar un bloque 
de memoria en otra parte de la me- 
moria sólo tendríamos que definir en 
un registro la dirección de inicio del 
bloque fuente, en otro, la dirección de 
inicio del destino, y en un tercero la 
cantidad de caracteres a mover, eje- 
cutando a continuación la instrucción 
LDIR. 

Como hemos citado anteriormente, 
hasta hace unos años, sólo existían dos 



niveles, el Software y el Hardware, y 
todos los problemas debían resolverse 
desde estos campos, pero con la sofis- 
ticación de los microprocesadores, se 
han creado otros niveles estratifica- 
dos, que han dado lugar a lo que lla- 
mamos: Jerarquías del Computador. 

NIVEL DE USUARIO 

En el nivel de usuario se encuentran 
aquellas personas que utilizan los pro- 
gramas del ordenador, pero que en 
teoría no tienen por qué saber cómo 
funciona internamente, ni siquiera 
cómo programarlo. Tan sólo utilizar 
los programas comerciales, como po- 
drían ser los de gestión de gráficos, 
procesadores de texto, hojas de cál- 
culo, bases de datos, etc. para aplica- 
ciones concretas, o programas recrea- 
tivos. 

LENGUAJES DE ALTO NIVEL 

El segundo escalón corresponde a 
los lenguajes de alto nivel. 






Generalmente los usuarios iniciados 
programan en estos lenguajes, que 
consisten en conjuntos de símbolos y 
palabras que suelen tener como refe- 
rencia el código ASCII. Algunos len- 
guajes son: BASIC, FORTRAN, 
PASCAL, APL, etc. 

El ordenador MSX se presenta con 
lenguaje BASIC, que será el utilizado 
mayormente por los nuevos usuarios, 
ya que es muy fácil de manejar. Tam- 
bién pueden adquirirse en el mercado 
otros lenguajes e incorporarlos, como 
puede ser el PASCAL. 

Los programadores de estos lengua- 
jes no precisan saber cómo está hecho 
el sistema operativo, ni el lenguaje 
máquina. 

Los microprocesadores sólo pueden 
ejecutar programas dispuestos en có- 
digo binario, empleando el Set (juego) 
de instrucciones del lenguaje máquina 
propio. 

Para ejecutar un programa escrito 
en lenguaje de alto nivel, es preciso 
traducirlo. Existen dos métodos para 
efectuar dicha traducción: los lengua- 
jes compilados, que son los que tra- 
ducen el programa antes de ejecu- 
tarlo, generando archivos en código 
objeto (código máquina), ejecutable 
directamente por la CPU; y los len- 
guajes intérpretes, que son los que tra- 
ducen cada instrucción en el momento 
que deben ejecutarla, repitiendo el 
proceso para cada instrucción. 




Generalmente no depende del usua- 
rio el poder elegir el tipo de traductor, 
ya que hay lenguajes de alto nivel, que 
mayormente son interpretados, como 
es el caso del BASIC, mientras otros 
son generalmente compilados, como 
el PASCAL. 

En determinados casos cuando se 
trabaja con BASIC, es necesario com- 
pilar. Como hemos dicho este len- 
guaje está en intérprete, por lo cual 
existen algunas máquinas que tienen 
además del Intérprete BASIC, un 
Compilador de BASIC. 

Entre los lenguajes compiladores e 
intérpretes existen diferencias impor- 
tantes en cuanto a ventajas e incon- 
venientes. 

El lenguaje compilador ofrece unas 
ventajas, como es la velocidad de eje- 
cución, dado que el tiempo de traduc- 
ción del programa se realiza aparte, 
propiciando una ejecución más rá- 
pida, ocupando menos espacio en me- 
moria y también menos espacio. 

Su aplicación resulta ideal en pro- 
gramas que ya están hechos y que por 
tanto no vayan a modificarse, preci- 
samente por las ventajas comentadas. 

Un inconveniente radica en que 
cuando se compila un programa, y 
éste tiene errores, debemos corregir- 
los y volver a compilar de nuevo todo 
el programa, lo cual hace que resulte 
lenta la puesta en marcha. 

El lenguaje intérprete es ideal para 
el desarrollo de programas, ya que es 
mucho más rápido en la puesta a 
punto de los mismos, pues no hay que 
compilarlo entero, sino que la parte 
que se hace funcionar es la que se está 
interpretando. 

El inconveniente del intérprete está 
en su lentitud, dado que debe ir tra- 
duciendo las instrucciones mientras 
ejecuta el programa. 

EL SISTEMA OPERATIVO 

El tercer nivel corresponde al sis- 
tema operativo. Para trabajar en este 
nivel no es imprescindible conocer los 
más bajos, aunque sí aconsejable. 

El sistema operativo es el encargado 
de informar, situar y relacionar el mi- 
croprocesador con sus periféricos. 
Dispone de una tabla de valores, 



que recibe el nombre de BIOS (Basic 
I/O System), donde se almacenan las 
direcciones que se refieren a la ubi- 
cación de la pantalla, dirección donde 
se hallan los floppys, etc. De esta 
forma cuando nos dirigimos a un pe- 
riférico, no debemos preocuparnos de 
en qué dirección se encuentra, ya que 
es el Sistema Operativo quien realiza 
esa función. 

En el Sistema Operativo se hallan, 
además del BIOS, todas las rutinas de 
gestión de los periféricos del sistema, 
así como las rutinas aritméticas, tri- 
gonométricas y de coma flotante, más 
otros programas de control del sis- 
tema. 

Si deseamos realizar alguna gestión 
de Entrada/Salida muy específica 
desde el lenguaje de alto nivel, pode- 
mos efectuar llamadas a las rutinas del 
S. O., sin necesidad de crear dichas 
rutinas en lenguaje máquina. 

EL LENGUAJE MÁQUINA 

El cuarto nivel se refiere al Len- 
guaje Máquina, que es el Lenguaje 
Ensamblador. En este nivel sí debe- 
mos conocer a fondo el Hardware del 
ordenador, para saber cómo tiene or- 
ganizada la memoria, cómo funciona 
la CPU, etc., ya que vamos a trabajar 
directamente con el microprocesador. 

Este lenguaje es más utilizado en el 
ámbito profesional, o por los usuarios 
con conocimientos previos, ya que al 
trabajar con el microprocesador, el 
lenguaje es mucho más específico y 
complicado. 

Aunque la elaboración de los pro- 
gramas sea más compleja, tiene ven- 
tajas importantes, como son la rapidez 
de ejecución, y la escasa cantidad de 
memoria que ocupan, en comparación 
con otros lenguajes de más fácil acceso 
para el usuario, como es el BASIC. 

Los programas en Lenguaje Má- 
quina están codificados en código bi- 
nario, y se pueden representar me- 
diante sistemas numéricos tales como 
el binario, el octal y el hexadecimal. 

Para llegar a codificar los programas 
realizados en lenguaje ensamblador, 
partiremos de los pseudocódigos aso- 
ciados a cada instrucción del lenguaje 
máquina, y una vez completos, los tra- 
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El micro Z- 




duciremos en códigos binarios. Igual- 
mente hemos de calcular la dirección 
física absoluta o relativa, para las ins- 
trucciones de salto. 

Esta tarea de traducción es muy pe- 
sada, mecánica y muy presta a come- 
ter errores. Para ayudar a los progra- 
madores en Lenguaje Máquina, se han 
creado los denominados Programas 
Ensambladores, que son los encarga- 
dos de realizar dicha traducción. 

Un programa ensamblador gene- 
rará código máquina, únicamente para 
el microprocesador para el cual está 
diseñado. 

Al igual que el resto de los lengua- 
jes, se rige por unas normas estrictas, 
que deben ser respetadas, ya que en 
caso contrario se generan códigos de 
error. 

La importancia del tema aconseja 
incidir más ampliamente en un pró- 
ximo artículo de esta sección, en el 
que analizaremos la sintaxis del En- 
samblador y sus Instrucciones. Mien- 
tras tanto os será de utilidad el artículo 
que publicamos en la sección de Có- 
digo Máquina de este número. 



EL HARDWARE 

El siguiente nivel con que nos en- 
contramos es el Hardware. En éste es 
imprescindible conocer todo lo refe- 
rente al sistema, ya que se trabaja es- 
trechamente con el microprocesador. 
Debemos saber cuándo va a produ- 
cirse una selección de memoria, 
cuándo estará el BUS libre, cuál es la 
situación de los bits, etc., así como el 
resto de la circuitería controlada por el 
Z80, como es el circuito IC TMS-9918, 



que es el VDP (Video Display Pro- 
cessor), el AY3-8910 que es el PSG 
(Programable Sound Generator), que 
es el encargado de la parte de sonido, 
etc., en una palabra, todo lo referente 
a su electrónica interna. 



LA MICROPROGRAM ACIÓN 

Existe un nivel, la Microprograma- 
ción, que sólo existe en los sistemas de 
ordenadores industriales con las últi- 
mas tecnologías. 

Podríamos situarlo entre el escalón 
de Lenguaje Máquina y el Hardware. 

Se trata de un programa, que ma- 
neja la electrónica interna de la CPU 
y hace posible que ésta pueda inter- 
pretar un determinado lenguaje má- 
quina, así sin modificar la circuitería 
podemos disponer de varios lenguajes 
máquina para una misma CPU. 

El Z80 sólo tiene un Lenguaje Má- 
quina del que ya hemos hablado an- 
teriormente, ya que su programación 
en código máquina está cableada, uti- 
lizando transistores y circuitos en el in- 
terior de la CPU que no se pueden 
cambiar. 

En nuestro caso si queremos crear 
una nueva instrucción, debemos hacer 
una subrutina que la realice, pero 
nunca podríamos incluir esta función 
dentro del conjunto de instrucciones 
del microprocesador. 

Existen potentes microprocesado- 
res, como los de la serie 68000 que son 
microprogramables por el fabricante, 
permitiendo que en casos muy concre- 
tos se pueda acondicionar directa- 
mente el microprocesador a la nece- 
sidad específica. 

Estas nuevas prestaciones que 
aporta la Microprogramación, facili- 



tan el diseño de las CPU, ya que en 
ese proceso no será necesario pensar 
cómo será el lenguaje máquina que 
más tarde utilizará el microprocesa- 
dor, independizando el diseño electró- 
nico, de la funcionalidad lógica. 

El siguiente proceso al diseño, es la 
fabricación. Será pues el fabricante 
quien incluirá el microprograma en la 
CPU, la cual con dichas instrucciones 
mejorará el Lenguaje Máquina, que 
cada vez tenderá a ser más eficiente 
para la aplicación a que vaya a ser des- 
tinado. 

Otra versión sería la que nos ofre- 
cen ordenadores como el PDP11, que 
disponen de una parte de su Lenguaje 
Máquina, modificable por el usuario, 
ya que el fabricante del ordenador ha 
dispuesto una pequeña memoria 
RAM, muy rápida y capaz de contener 
parte del microprograma. 

El particularizar el ordenador, im- 
plica un pequeño inconveniente, y es 
que al incluir instrucciones especiales, 
sólo pueden ser interpretadas por el 
propio ordenador, y no por otros, que 
no reconocerían los nuevos comandos. 

La microprogramación está justifi- 
cada en casos, por citar un ejemplo, 
de cálculos u operaciones que se efec- 
túen con asiduidad y que precisen nor- 
malmente el empleo de programas 
que alargarían el proceso innecesaria- 
mente. 

Actualmente esta técnica todavía no 
se ha aplicado al sistema de microor- 
denadores domésticos, pero no des- 
cartamos la idea de que se incluya en 
el futuro próximo. 

En el siguiente número realizare- 
mos una descripción exhaustiva de la 
CPU, que nos dará pie para estudiar 
el Lenguaje Máquina del Z80. 



AVISO A LOS USUARIOS DE MITSUBISHI 



Para aquellos programas que. careciendo de una completa compatibilidad con el standard MSX y 
MSX.2, presenten problemas de carga en tu ordenador MITSUBISHI ML-G3. ML-G1, ML-FX2 o ML- 
FX1, ejecuta la siguiente instrucción: 

POKE— 1,170 

Introduce pulsando la tecla «RETURN» y procede a la carga normal del programa. 

El uso de esta instrucción es válido para programas cargados desde unidades de disco o cassette 
indistintamente. 
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EL ORDENADOR 
TELEFONICO 



El pequeño programa que os presen- 
tamos a continuación y que inaugura el 
concurso de aplicaciones de INPUT 
M SX, demuestra que es posible marcar 
un número telefónico a través del orde- 
nador. 

¡Animo y a enviar vuestras ideas para 
el concurso! 

¿Quién no ha deseado alguna vez 
ahorrar tiempo al marcar un número 
telefónico, evitando así la pequeña 
pero insoportable espera de que el dial 
vuelva a su posición normal? Esos se- 
gundos eran imprescindibles, por 
ejemplo, para tener ventaja en los 
concursos telefónicos. 

¿Cuántos de nosotros hemos per- 
dido la oportunidad de ganar algún su- 
culento premio, o de tan sólo partici- 
par, por ese endemoniado dedito que 
se coló en la cifra que no era, retra- 
sando nuestra entrada en las ondas de 
la radio? 



EL PROGRAMA 

El programa aprovecha el relé de 
que disponen todos los MSX para ac- 
cionar el motor del cassette a través de 
los mandatos MOTOR ON y MO- 
TOR OFF. 

Comentemos algunos aspectos de 
dicho programa: 

La línea 20 es la encargada de di- 
mensionar la matriz que almacenará 
las cifras del número de teléfono, el 
número de cifras (en este caso el 15) 
podrá ampliarse dependiendo del nú- 
mero de prefijos que tengan que uti- 
lizarse en esa llamada. 

La línea 60 recoge la cantidad de ci- 
fras que se quieren marcar y las al- 
macena en la variable N. El bucle 
FOR...NEXT de las líneas 70 a 100 es 
el encargado de guardar las cifras del 
número de teléfono en la variable C. 
A partir de la línea 110 empieza la 
parte más importante del programa: 



primero se conecta la línea telefónica 
al ordenador (150) esperando este úl- 
timo un cierto tiempo, posteriormente 
se definen la cantidad de cifras entra- 
das (170), recogiéndose la primera de 
dichas cifras y conectando y desconec- 
tando la línea tantas veces como sea el 
número escogido. La conexión-des- 
conexión de la línea provocará las pul- 
saciones que aparecen normalmente al 
llamar por teléfono. 

Las líneas 230 a 250 se encargan de 
mostrar por pantalla el dígito mar- 
cado. Una vez acabada la operación 
aparecerá un menú con las posibili- 
dades de: llamar de nuevo al mismo 
número, abandonar el programa re- 
gresando al BASIC, o llamar a un nú- 
mero distinto. 

Las líneas comprendidas entre 350 y 
370 son las encargadas de cambiar el 
rumbo del programa según la elección 
del menú anterior. Así, la línea 380 
desactiva la línea telefónica llevando 
el control a 120 donde se repite la ope- 
ración de marcar el mismo número; la 
línea 390 desactiva la línea telefónica 
y finaliza el programa; por último, la 
400 nos lleva a marcar una nueva en- 
trada. 

En el próximo número de INPUT 
MSX ampliaremos esta curiosa apli- 
cación. Con ese nuevo desarrollo 
vuestro ordenador simulará la llamada 
telefónica con la simple introducción 
de un nombre de vuestra agenda, gra- 
cias a la ampliación del programa con 
un fichero-agenda. 

10 SCREEN 0,0,0:COLOR 3,1, 

IrKEYOFF 
20 DIM C(15) 
30 0PEN"GRP:" AS #1 
40 REM MARCADORDE 

NUMEROS 
50 REM 

60 INPUT "NUMERO DE 
CIFRAS:";N 
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70 FOR M = l TO N 
80 PRINT M;:INPUT "-CIFRA:"; 
C(M) 

90 IF C(M)=0 THEN C(M) = 10 
100 NEXT M 
110 CLS 

120 SCREEN 2,2,0 
130 Z = 50 

140 LINE (2,98)-(256, 108),8,B 
150 MOTOR 

160 FOR G=l TO 1000:NEXTG 
170 FOR M = l TO N 
180 FOR R=l TO C(M) 
190 MOTOR:FOR 

G=lT045:NEXTG:MOTOR:FOR 

G=l TO 45: 

NEXT G 
200 NEXT R 

210 FOR G=l TO 600:NEXTG 
220 IF C(M)=10 THEN C(M)=0 
230 PSET (Z,100),l 
240 PRINT#1, C(M) 
250 1=1+7 
260 NEXT M 
270 FOR M = l TO N 
280 IF C(M)=0 THEN C(M)=10 
290 NEXT M 
300 SCREEN 0,0,0 
310 PRINT "(1) LLAMAR OTRA 
VEZ." 

320 PRINT "(2) ABANDONAR EL 

PROGRAMA." 
330 PRINT "(3) LLAMAR A OTRO 

NUMERO." 
340 PRINT:INPUT "QUE ELIGE"; 

F 

350 IF F=l THEN GOTO 380 
360 IF F=2 THEN GOTO 390 
370 IF F=3 THEN GOTO 400 
380 MOTOR:FORG=1TO1000: 

NEXTG:SCREEN 2, 

2:GOTO120 
390 MOTOR:END 
400 MOTOR:FORG=1TO1000: 

NEXTG:CLS:GOTO40 
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USP, EL LENGUAJE 
DE LAS LISTAS (I) 



Aunque empezó con lentitud, el LISP 
ha ido ganando poco a poco velocidad y 
las «máquinas de LISP» pueden muy 
bien ser los prototipos de los ordenado- 
res domésticos que se vendan en los pró- 
ximos diez a veinte años. 

El LISP fue desarrollado original- 
mente por John McCarthy en el Ins- 
tituto Tecnológico de Massachusetts a 
principios de la década de los 60, una 
época en que los lenguajes de orde- 
nador más sofisticados eran las versio- 
nes primitivas del FORTRAN, el len- 
guaje parecido al BASIC que utilizan 
ingenieros y científicos. Su nombre se 
deriva de List Processing, procesado 
de listas, lo que nos puede dar una 
pista sobre la forma en que trabaja. 
Hoy día, veinticinco años más tarde, 
los programas en LISP continúan ba- 
sándose en los mismos principios fun- 
damentales, mientras que el FOR- 
TRAN ha debido ir incorporando 
nuevas capacidades a medida que la 
gente ha ido aprendiendo gradual- 
mente a escribir mejor sus programas. 

Incluso aunque tú no hayas oído ha- 
blar nunca antes del LISP, es muy pro- 
bable que los programas que escribes 
se hayan visto influidos por él, debido 
a que muchos de sus conceptos han 
sido aplicados a otros lenguajes. No 
obstante, a pesar de su influencia so- 
bre otros lenguajes, las ideas del LISP 
siguen siendo radicalmente diferentes 
de las de lenguajes como el BASIC o 
el PASCAL, siendo además el LISP 
un lenguaje considerablemente más 
potente que ellos. 

LA IMPORTANCIA DE LA 
VELOCIDAD 

Es bien conocido que resulta más 
fácil escribir un programa en BASIC 
para realizar una determinada tarea, 
que hacerlo en código máquina. El 
BASIC es un lenguaje de más alto ni- 
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vel y sus recursos actúan sobre él 
como una especie de palanca intelec- 
tual haciendo que el programador 
pueda abordar problemas más difíci- 
les. 

En el futuro los ordenadores reali- 
zarán tareas mucho más complejas de 



lo que lo hacen actualmente, lo que 
significa que los programadores ten- 
drán que utilizar lenguajes aún más 
potentes, como el LISP, para escribir 
sus programas; pero los lenguajes más 
potentes tienden a ser más lentos. 

Realmente es cierto que las prime- 
ras versiones del LISP eran lentas, lo 
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cual le quitó popularidad. Sin em- 
bargo, las actuales versiones de LISP 
que corren sobre grandes ordenado- 
res, son tan rápidas como cualquier 
otro lenguaje de alto nivel. Además el 
producto de la revolución tecnológica 
en los circuitos integrados es un 
enorme crecimiento de la velocidad y 
capacidad de procesamiento de un 
solo chip de silicio. Esto significa que 
ya no resulta vital apurar hasta el úl- 



timo bit la velocidad del sistema uti- 
lizando el código máquina. 

INTELIGENCIA ARTIFICIAL 

El LISP es el principal lenguaje uti- 
lizado en Inteligencia Artificial. Su 
objetivo es aquí la creación de progra- 
mas de ordenador que presenten un 
comportamiento similar en algún as- 
pecto a la inteligencia humana. Un 




ejemplo típico es la máquina que 
juega al ajedrez. Otro ejemplo es uno 
de los más famosos en los que se uti- 
lizó el LISP. Se trata de un programa 
llamado ELIZA que desarrolló el pa- 
pel de psicoanalista, comunicándose 
con sus pacientes a través de un ter- 
minal de ordenador. El programa si- 
mulaba la conversación que habría po- 
dido tener lugar, preguntando y res- 
pondiendo a las preguntas. Hubo per- 
sonas que realmente se quedaron con- 
tundidas pensando que el ordenador 
entendía de verdad lo que ellas le de- 
cían. De hecho lo que hacía el orde- 
nador era simplemente mirar a su en- 
trada y replicar modificándola adecua- 
damente. El análisis necesario para 
hacer esto es mucho más fácil en LISP 
que en otros lenguajes. 

Otra área de la inteligencia artificial 
son los Sistemas Expertos. En este 
caso se trata de programar en un or- 
denador todos los conocimientos de 
un experto humano en algún campo, 
tal como el mantenimiento de los mo- 
tores de automóvil. Un usuario sin ex- 
periencia puede averiguar lo que le 
pasa a su coche tecleando los síntomas 
de los fallos. El ordenador le replica 
con su diagnóstico, haciendo nuevas 
preguntas que pueden ser necesarias 
para localizar con más precisión el 
problema. 

OTRAS APLICACIONES 

Otros programas más tradicionales, 
como compiladores y procesadores de 
textos, son mucho más sencillos 
cuando se escriben en LISP, habién- 
dose utilizado también este lenguaje 
para escribir los programas de algunos 
de los sistemas de diseño asistido por 
ordenador (CAD) utilizados en el di- 
seño de circuitos integrados. 

El LISP ha desempeñado un impor- 
tante papel en los programas de or- 
denador que se ocupan del álgebra. Es 
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evidente que los ordenadores son muy 
buenos en aritmética. Sin embargo 
con el LISP es posible hacer que lo 
sean también en álgebra. Esto signi- 
fica que los ordenadores pueden hacer 
la clase de cálculos algebraicos que 
mantendría ocupado a un ejército de 
matemáticos y llenaría kilómetros de 
papel. 

Algunos de los cálculos de la física 
teórica contienen un álgebra tan com- 
plicada que sólo puede hacerse me- 
diante estos sistemas basados en el 
LISP. A un nivel más modesto, una 
aplicación típica del LISP que podrías 
hacer correr en tu ordenador domés- 
tico podría ser el cálculo de derivadas, 
lo cual será muy útil si tienes que ha- 
cer docenas y docenas de ejemplos de 
cálculo en tus tareas de casa. 



EL LISP Y EL ORDENADOR 

Sería erróneo dar la impresión de 
que el LISP es el único lenguaje capaz 
de resolver problemas difíciles o de al- 
canzar relevancia en el futuro. Han 
aparecido varios lenguajes modernos 
que utilizan ampliamente sus concep- 
tos, entre los que se incluyen el 
LOGO y el PROLOG. Con mucha 
frecuencia los compiladores e intér- 
pretes de estos lenguajes fueron escri- 
tos en LISP. Por eso el LISP es en 
cierta medida el lenguaje ensamblador 
de la nueva generación de lenguajes 
de ordenador. Actualmente existen de 
hecho procesadores especiales cuyos 
lenguajes ensambladores están basa- 
dos en el LISP, básicamente de la 
misma forma que los procesadores 
Z80, 6502 o 6809 de un ordenador do- 
méstico son capaces de entender el có- 
digo máquina adecuado. 

Estos procesadores de LISP consti- 
tuyen muchas veces el corazón de de- 
terminados ordenadores personales de 
alta potencia o de puestos de desarro- 
llo de ingeniería, cuyo principal len- 
guaje es el LISP. Estas «Máquinas de 
LISP» pueden muy bien ser los pro- 
totipos de los ordenadores domésticos 
que estén a la venta en la calle dentro 
de cinco o diez años. 

En estos artículos sobre LISP, ex- 
plicaremos los fundamentos del len- 
guaje y podrás seguir sus desarrollos 



incluso aunque todavía no tengas un 
LISP. 

Como en el caso del BASIC, existen 
diferencias entre las versiones del 
LISP de ordenadores diferentes, aun- 
que afortunadamente las variaciones 
de uno a otro suelen ser muy peque- 
ñas; normalmente suelen consistir úni- 
camente en diferencias ortográficas en 
los nombres de las funciones. Un in- 
conveniente del LISP es que hace uso 
de un elevado número de paréntesis. 
Si eres una de esas personas que en- 
cuentran grandes dificultades para ha- 
cer cuadrar el número de paréntesis en 
las expresiones del BASIC, puede que 
el LISP no sea el lenguaje más ade- 
cuado para ti. 



FUNDAMENTOS 

Uno de los hechos que distingue al 
LISP del BASIC es que el LISP, ade- 
más de números, es capaz de mani- 
pular símbolos. Es algo parecido a la 
forma en que el BASIC puede fraccio- 
nar y manejar cadenas de caracteres, 
si bien la capacidad de manejo de sím- 
bolos del LISP es mucho mayor. 

Los objetos básicos que maneja el 
LISP se llaman átomos y listas. Un 
átomo es realmente como una variable 
en BASIC, empieza por una letra y 
puede continuar por cualquier longi- 
tud de letras y números (aunque en la 
práctica siempre hay un límite). Según 
esto, podrían ser átomos los siguien- 
tes: LUIS, átomo, NUM1, NUM2. 
Todos estamos familiarizados con mu- 
chos tipos de listas, por ejemplo una 
lista de cosas que comprar o la lista de 
los jugadores de algún equipo depor- 
tivo. Tu lista de compras podría ser: 
té, azúcar y leche. Una lista LISP es 
algo muy parecido que incluye cierto 
número de átomos y probablemente 
otras listas. Para informar al LISP de 
que algo es una lista, se encierra ésta 
entre paréntesis. 

Así, tu lista de compras en LISP po- 
dría ser algo como: 

(te azúcar leche) 

Una lista de LISP puede contener 
tanto átomos como otras listas, por lo 
que otro ejemplo sería: 



((te frió) (leche caliente) azúcar) 

La anterior lista contiene dos listas 
y un átomo. Los paréntesis se utilizan 
de una manera muy parecida a las do- 
bles comillas que usa el BASIC para 
mostrar dónde empiezan y terminan 
las cadenas de caracteres. La diferen- 
cia consiste en que las cadenas de ca- 
racteres no pueden contener otras ca- 
denas de caracteres. 



CARGA DEL LISP 

Si quieres hacer tus propias pruebas 
con el LISP, no tienes necesidad de 
cambiar tu ordenador doméstico, tan 
hábil con el BASIC, por una máquina 
de LISP de seis millones de pesetas. 
De hecho la mayoría de los ordena- 
dores domésticos se pueden convertir 
al LISP. La única razón por la que un 
ordenador entiende el BASIC es por- 
que existe un gran programa en ROM 
que es un intérprete de BASIC. Es 
perfectamente posible sustituir este 
código máquina por otro programa 
que interprete o entienda los progra- 
mas en LISP. En la práctica, el aña- 
dirle el LISP a algunos ordenadores 
consiste en enchufarles un chip o un 
pequeño módulo que contiene una 
ROM que lleva dentro el código má- 
quina necesario. Se suele adoptar con 
más frecuencia la solución de mante- 
ner en la memoria principal del orde- 
nador la sección de código máquina 
que contiene el intérprete LISP. En 
tales casos se carga el LISP a partir de 
una cinta o disco, igual que cualquier 
otro programa y una vez que el código 
está dentro de tu ordenador éste se 
comporta ya como un sistema LISP. 

¿Qué es lo que se vería cuando esto 
sucede? En vez del acostumbrado ok 
del BASIC, te encontrarías con el 
mensaje Evalúate:. Esto significa que 
el LISP está esperando a que teclees 
alguna expresión válida en LISP, la 
cual evaluará a continuación e impri- 
mirá su valor en la pantalla. Así es 
todo el LISP: tú tecleas expresiones y 
el ordenador te contesta con sus va- 
lores. En LISP se llama expresión a 
una expresión de tipo simbólico que 
contenga una lista o un átomo. Con 
frecuencia suele llamarse a esto una s- 
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expresión. No existe un comando 
equivalente al RUN que ponga real- 
mente en marcha el programa. Como 
verás más adelante, este comando no 
hace falta. 

Cuando te aparece el mensaje Eva- 
lúate: y el ordenador se queda espe- 
rando, tienes que decidir lo que vas a 
teclear. Lo más sencillo es un átomo, 
como LUIS. El LISP te responde en- 
tonces con un UNDEFINED. El diá- 
logo sería algo parecido a lo que sigue: 

Evalúate: LUIS 
Valué is: UNDEFINED 

Esto significa que el LISP nunca ha 
visto anteriormente ese átomo y que 
no puede encontrar su valor. Al igual 
que las variables del BASIC, los áto- 
mos pueden tener valores. La situa- 
ción se parece a hacer un PRINT de 
una variable en BASIC antes de asig- 
narle un valor. Cuando el LISP se en- 
cuentra el átomo, intenta evaluarlo, es 
decir, encontrar su valor. Esta es una 
importante característica del LISP: 
todo se evalúa siempre a menos de 
que exista la intención expresa de no 
hacerlo. 

Hay un método para eliminar las 
evaluaciones en LISP, la comilla sen- 
cilla '. Supongamos que tecleas 'LUIS. 
En estas condiciones, la respuesta del 
LISP será ahora LUIS. Con la comilla 
se detiene cualquier evaluación ulte- 
rior de lo que viene detrás. El valor de 
la expresión LUIS es precisamente el 
átomo que sigue a la coma. También 
puede usarse la coma con listas. Así: 

'(te azúcar leche) 

se evaluará como (te azúcar leche) 

Una aplicación mucho más intere- 
sante que la evaluación de átomos es 
la evaluación de listas. Nuevamente 
tenemos un ejemplo de esto en la co- 
milla anterior: 'LUIS es realmente 
una abreviatura de (QUOTE LUIS). 
De hecho algunos sistemas sólo acep- 
tarán la segunda forma de la expre- 
sión. QUOTE es aquí una función del 
LISP, mientras que el átomo LUIS es 
su argumento. Observa que QUOTE 
no halla el valor de su argumento. 
Compara esta función con las fun- 



ciones del BASIC, que podrían ser del 
tipo: 

RND (20) 

El BASIC encuentra para este valor 
un número aleatorio. Esto mismo en 
LISP tendría el siguiente "aspecto: 

(RND 20) 

Observa la nueva situación de los 
paréntesis. Análogamente, si en BA- 
SIC existiera una función llamada 
OUOTE, se escribiría así: 

QUOTE (LUIS) 

Puede que te confunda al principio 
este nuevo uso de los paréntesis, pero 
una vez que se ha entendido es sen- 
cillo. 



VALOR DE LOS ATOMOS 

Al igual que las variables, los áto- 
mos también pueden tener un valor. 
Sin embargo surge la cuestión de 
cómo adquiere un átomo su valor. Por 
ejemplo, ¿cómo se le asigna a LUIS el 
valor 1? Se hace con la función SET 
de la siguiente forma: 

(SET' LUIS 1) 

Como de costumbre, el LISP lo eva- 
lúa todo. El primer argumento de SET 
se evalúa como LUIS, y el segundo se 
evalúa como 1; a continuación la fun- 
ción asigna el valor 1 a LUIS. Esto nos 
muestra dos cosas. En primer lugar, 
que en LISP todos los números son 
átomos que se evalúan para dar su va- 
lor numérico. Y en segundo lugar que, 
igual que ocurre en BASIC, las fun- 
ciones pueden tener más de un argu- 
mento. Si ahora teclearas LUIS, el 
LISP te respondería con L La interac- 
ción con el LISP podría ser algo así: 

Evalúate: (SET' LUIS 1) 
Valué is: 1 
Evalúate: LUIS 
Valué is: 1 

Como todas las demás funciones, ha 
de resultar un valor para SET, nor- 



malmente el valor de su segundo ar- 
gumento que en este caso es t. Existe 
otra versión del SET que es SETO, en 
la cual no se evalúa el primer argu- 
mento. Así, podrías teclear: 

(SETQ LUIS 1) 

sin colocar la comilla delante de 
LUIS. Para insistir aún más en el 
tema, supongamos que tecleas segui- 
damente: 

(SETQ JORGE LUIS) 

En este caso, el LISP evaluaría 
LUIS y encontraría que su valor es 1, 
y a continuación pondría el valor de 
JORGE a l. JORGE no se evalúa y 
no tiene que ser protegido por medio 
de \ 

La función SET se parece al co- 
mando LET que tienen algunas ver- 
siones del BASIC. Con frecuencia en 
BASIC las variables tienen que ser de 
un tipo declarado. En LISP no hay 
esta necesidad de especificar las varia- 
bles: un átomo puede tener como va- 
lor un número, otro átomo o una lista 
Por ejemplo: 

(SETQ COMPRAS '(te leche 
azúcar)) 

asignará tu lista de compras al átomo 
COMPRAS. 

Llegados aquí, puede que te hayas 
dado cuenta de una importante dife- 
rencia entre el LISP y el BASIC. Con- 
sidera en primer lugar la lista: 

(te leche azúcar) 

es decir, tu lista de compras. Sin em- 
bargo, si el té fuera una función (como 
SET) esta lista podría ser una expre- 
sión en LISP y podría ser evaluada. 
Más adelante veremos que es fácil de- 
finir átomos como té para que sean 
funciones. La cuestión es que en LISP 
los programas y los datos tienen exac- 
tamente el mismo aspecto. Este hecho 
tiene gran alcance; significa que un 
programa en LISP puede manejar 
otro programa en LISP con la misma 
facilidad con que maneja otros datos. 
En LISP todo se hace por medio de 
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funciones y encontrando el valor de 
expresiones. Pero a veces esto no re- 
sulta muy conveniente. Por ejemplo, 
normalmente no estarás interesado en 
el valor real que resulte de la función 
SET, es mucho más importante que 
asigne un valor a un átomo. Por eso 
algunas funciones sólo se utilizan por 
sus efectos laterales y no por su valor. 



DESMENUZANDO LAS PARTES 

Para hacer algo con el LISP, evi- 
dentemente tienes que poder mani- 
pular listas; es algo análogo al manejo 
de cadenas de caracteres en el BASIC, 
que las tres funciones fundamentales 
que hacían esto son CAR, CDR y 
CONS. La reacción natural ante esta 
información es «So what?» (¿Qué?). 
Suponte sin embargo que te dijeran 
que estas funciones se llaman FIRST, 
REST y ADD to FRONT. Estas de- 
nominaciones te dan realmente mucha 
más información sobre lo que real- 
mente hacen. De hecho CAR y CDR 
se han llamado así por ser las iniciales 
de «contenido del registro de direc- 
ción» (contents of address register) y 
«contenido del registro de decre- 
mento» (contents of decrement regis- 
ter), y proceden de los nombres de dos 
de los registros del ordenador IBM en 
el que se utilizó inicialmente el LISP. 
CONS significa construcción. Casi 
todo el mundo aprende a utilizar estos 
términos, pero podrían cambiarse fá- 
cilmente por ejemplo por (SETO 
FIRST CAR). 

Tal como sugiere el nombre pro- 
puesto como alternativa, CAR da 
como valor resultante el primer ele- 
mento de la lista. Por ejemplo: 

(CAR '(te leche azúcar)) 

da como valor resultante té. Observa 
que CAR evalúa sus argumentos, por 
lo que hay que utilizar una ' para evi- 
tar la evaluación de la lista. Para ver 
de otra forma cómo funciona esto, te- 
clea: 

(SETQ COMPRAS '(te leche 
azúcar)) 

y a continuación: 



(CAR COMPRAS). 

El LISP te respondería de nuevo 
con té como valor de esto, ya que se 
encuentra que el valor de COMPRAS 
es la lista: 

(te leche azúcar) 

Con CDR resulta la lista que con- 
tiene todos los elementos de la lista 
dada, tomada como argumento, ex- 
cepto el primero. Así el valor de: 

(CDR '(te leche azúcar)) 

es la lista: 

(leche azúcar) 

Tal como sugiere su nombre, CONS 
sirve para construir listas. Hace esto 
de una manera muy específica, tiene 
dos argumentos, un átomo o una lista 
y una lista. CONS agrega su primer ar- 
gumento al principio de la lista que f i- 
gura como segundo argumento. Por 
ejemplo: 

(CONS 'galletas '(te leche azúcar)) 

se evalúa como: 

(galletas te leche azúcar) 

Para listas, el funcionamiento es el 
siguiente: 

(CONS '(izquierdo derecho) '(mano 
pie)) 

que tiene el valor: 

((izquierdo derecho) mano pie) 

Con CAR y CDR se obtiene en este 
caso: 

(izquierdo derecho) 

y* 

(mano pie). 

Observa que en este caso con CAR 
se obtiene una lista y no un átomo. Su- 
pongamos que tomas el CDR de una 
lista con sólo un elemento, por ejem- 
plo: 
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(CDR '(LUIS)) 

Esto tiene todo el aspecto de una 
lista vacía (). De hecho en LISP existe 
un nombre especial para esto, el 
átomo NIL. Al tomar el CAR o el 
CDR de un átomo o de una lista vacía 
se produce un mensaje de error, tal 
como era de esperar. Existe una ge- 
neralización de CAR y CDR. Imagí- 
nate que tratas de encontrar el átomo 
izquierdo de ta lista: 

((izquierdo derecho) mano pie) 

Podrías encontrarlo como valor de 
la expresión: 

(CAR (CAR '((izquierdo derecho) 
mano pie))) 

El LISP te permite hacerlo de una 
forma más corta con la función 
CAAR, pudiendo escribirse: 

(CAAR '((izquierdo derecho) mano 
pie)) 

Análogamente, CADR significa to- 
mar el CDR y a continuación el CAR. 
Los sistemas de LISP permiten tam- 
bién todas las demás combinaciones 
de CAR y CDR tomados en pares y a 
veces en ternas, cuaternas y así suce- 
sivamente. Si tuvieras dos átomos 
LUIS y JUAN y quisieras ponerlos en 
una lista, podrías sentirte inclinado a 
teclear: 

(CONS 'LUIS 'JUAN) 

Aunque se trata de una expresión 
válida, no es una lista. Su valor es el 
siguiente par separado por un punto: 

(LUIS.JUAN), 

pero de momento esto es una compli- 
cación innecesaria. Una manera de 
formar la lista deseada sería teclear lo 
siguiente: 

(CONS 'LUIS (CONS 'JUAN NIL)) 

El segundo argumento del primer 
CONS se evalúa para dar la lista 
(JUAN) en cuyo principio se añade el 
argumento LUIS. Sin embargo LISP 
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cuenta también con el método más 
breve siguiente: 

(LIST 'LUIS 'JUAN) 

Este es un ejemplo de otras de las 
características del LISP: las funciones 
con un número arbitrario de argumen- 
tos. Podrías teclear por ejemplo: 

(LIST 'UNO 'DOS TRES) 

para obtener la respuesta: 

(UNO DOS TRES) 

Esto es muy diferente de lo que ocu- 
rre en BASIC, donde las funciones 
siempre tienen que tener el mismo nú- 
mero de argumentos. 



LOS NUMEROS EN LISP 

Aunque una de las principales ca- 
racterísticas del LISP es su capacidad 
de manejar símbolos, también es ca- 
paz de manejar números. Las imple- 
mentaciones del LISP en ordenadores 
domésticos habitualmente utilizan so- 
lamente números enteros. Sin em- 
bargo algunos de los grandes sistemas 
de LISP pueden manejar números en 
punto flotante y hacer cálculos con 
ellos con tanta rapidez como cualquier 
otro lenguaje especial para el cálculo 
numérico, tal como el FORTRAN. 
Una peculiaridad que poseen con fre- 
cuencia estos sistemas es la aritmética 
de precisión arbitraria en la que se 
puede tomar cualquier número de ci- 
fras significativas, lo cual resulta per- 
fecto para calcular el valor del número 
pi con unos cuantos millones de nú- 
meros decimales. 

En comparación con el BASIC, el 
LISP maneja la aritmética de una 
forma un tanto extraña. Se parece más 
bien al LOGO, del que ya nos hemos 
ocupado anteriormente. Los equiva- 
lentes de los operadores habituales +, 
-, *, / y MOD (que da el resto de la 
división entera) son las funciones 
PLUS DIFFERENCE, TIMES, 
OUOTIENT y REMAINDER. La 
gran diferencia consiste en que el 
LISP utiliza notación de prefijo, en 
contraste con el BASIC, que utiliza 
notación interna. La notación con pre- 



fijo se llama a veces notación polaca, 
en memoria del lógico polaco Luka- 
siewicz, que demostró que esta nota- 
ción (así como la polaca inversa, con- 
sistente en poner al final el signo de la 
operación a realizar) son especial- 
mente apropiadas para la aritmética. 

Cuando en BASIC quieres sumar 2 
y 2, escribes 2 + 2. En LISP esto se 
convierte en (PLUS 2 2). En la nota- 
ción con prefijo los operadores arit- 
méticos figuran en primer lugar en las 
expresiones. Esto permite al LISP tra- 
tar a los operadores aritméticos en las 
funciones exactamente igual que a los 
demás. Por eso puedes cambiar sus 
nombres si lo deseas. Algunas de las 
funciones aritméticas del LISP, como 
el PLUS, pueden tomar cualquier nú- 
mero de argumentos. Por ejemplo: 

(PLUS 2 2 2 (TIMES 1 2) 

se evalúa dando el resultado: 

2 + 2 + 2 + 1* 2 = 8 

En LISP la función MINUS se uti- 
liza para cambiar el signo de un nú- 
mero; por ejemplo el valor de (MI- 
NUS 2) es -2. Esto contrasta con el 
BASIC, donde el símbolo - se em- 
plea tanto para el cambio de signo 
como para encontrar la diferencia en- 
tre dos números. 



VERDADERO O FALSO 

La siguiente cosa en que tenemos 
que fijarnos es la forma que tiene el 
LISP de manejar las expresiones ló- 
gicas y cómo hace los saltos condicio- 
nales dependiendo del valor de una 
expresión lógica. En BASIC los valo- 
res lógicos se tratan exactamente igual 
que la aritmética entera: típicamente 
se utiliza 0 para falso y - para ver- 
dadero, aunque son posibles otras 
elecciones. Una expresión lógica es 
algo del tipo: 

A > B 

Si A es mayor que B, entonces esta 
expresión en BASIC tiene valor ver- 
dadero, en caso contrario tiene valor 
falso. En LISP verdadero y falso se re- 



presentan por dos átomos especiales T 
y NIL (el mismo NIL descrito ante- 
riormente como la lista vacía). 

Los valores verdadero y falso resul- 
tan de funciones especiales a las que 
con frecuencia se les llama predicados. 
Un ejemplo de ello es la función 
ATOM, que da como resultado el va- 
lor T si su argumento es un átomo y 
NIL en caso contrario. Tecleando: 

(ATOM 'LUIS) 

el LISP responderá con el resultado T, 
mientras que: 

(ATOM '(leche galletas)) 

dará como resultado NIL. Otros pre- 
dicados de LISP son GREATERP, 
para ver cuál de dos átomos tiene ma- 
yor valor numérico y NULL que exa- 
mina una lista para ver si está vacía. 
El predicado EQ ensaya la igualdad 
de dos átomos cualesquiera: 

(EQ'LUIS'COME) (EQ 'LUIS'LUIS) 

da como resultado T, mientras que: 

(EQ'LUIS'ENRIQUE) 

tiene el resultado NIL. En realidad 
EQ ensaya si sus dos argumentos tie- 
nen el mismo valor, así con: 

(SETQ F '(mermelada pasteles) 

se tendrá que: 

(SETQ G F) 

seguido de: 

(EQ GF) 

Tendrá el valor T puesto que los va- 
lores resultantes de G y F son la 
misma lista. Además de éstos, hay 
muchos otros predicados en LISP. 
Además de los operadores aritméti- 
cos, el LISP cuenta también con el 
usual complemento de los operadores 
lógicos. Estos también utilizan la no- 
tación de prefijo. Por ejemplo, (OR T 
T) tiene el valor T, (OR T NIL) tiene 
el valor T, (AND T NIL) tiene el valor 
NIL, etc. 
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En BASIC lo primero que suele ha- 
cerse una vez que se está en condicio- 
nes de evaluar una expresión lógica es 
realizar saltos condicionales depen- 
diendo de los valores de dichas expre- 
siones, lo cual se hace con la sentencia 
IF. El equivalente de esto en LISP se 
hace por medio de la función COND. 
Esta función tiene un número arbitra- 
rio de argumentos (llamados cláu- 
sulas), cada uno de los cuales es una 
lista que contiene un cierto número 
de s-expresiones (listas de átomos). 
Cuando se evalúa la función COND se 
examinan todas las cláusulas por turno 
evaluando la primera s-expresión. Si 
su valor resulta ser T, se examinan to- 
das las s-expresiones subsecuentes de 
esa cláusula. El valor de la función 
COND se toma entonces como el de 
la última s-expresión de la cláusula. 
En caso contrario la evaluación con- 
tinúa en la siguiente cláusula. Si nin- 
guna de las cláusulas tiene una pri- 
mera s-expresión que sea T, la función 
COND tiene entonces el valor N1L. 
Normalmente se organizan las cosas 
de modo que ningún valor NIL para 
una primera s-expresión dé el mismo 
resultado que un valor T. 

Un caso típico de COND sería el si- 
guiente: 

(COND ((EQ LUIS 

D(PRINT'UNO)) 
((EQ LUIS 
2)(PRINT'D0S)) 
((EQ LUIS 
3HPRINTTRES)) 

En este ejemplo se ha introducido otra 
nueva función, PRINT; su efecto es 
imprimir el resultado después de eva- 
luarlo. Aunque el LISP cuenta con un 
conjunto completo de estas funciones 
de impresión, suelen diferir de un sis- 
tema a otro. 

Si ahora LUIS ha sido puesto a 2 
con SET y se impone la anterior 
COND, imprimirá la palabra DOS en 
la pantalla. De hecho el valor de la 
función PRINT es usualmente el valor 
de su argumento, por lo que el LISP 
devolverá el valor DOS como valor de 
la COND. Está claro por qué sucede 
esto. En primer lugar el LISP compara 
el átomo LUIS con 1 y se encuentra 



con que no son iguales; esto significa 
que la primera s-expresión de la pri- 
mera cláusula es NIL. Entonces el 
LISP se desplaza a la segunda cláusula 
de la COND. Esta vez la primera s- 
expresión tiene el valor T, por lo que 
se evalúa la segunda s-expresión 
(PRINT DOS) con el resultado de 
imprimir DOS en la pantalla y devol- 
ver el valor de la s-expresión (PRINT 
'DOS), es decir, DOS. 

Todo esto puede parecer bastante 
complicado y además hay que estar 
muy atento a los paréntesis en estas 
expresiones. Sin embargo hay una 
sentencia muy parecida en el BASIC 
que hará más claro el funcionamiento 
de COND. Examina el siguiente frag- 
mento de programa en BASIC: 

IF LUI 3=1 THEN PRINT «UNO» 
ELSE IF LUIS = 2 THEN PRINT 

«DOS» 

ELSE IF LUIS = 3 THEN PRINT 

«TRES» 

Esta cadena de IF THEN ELSE es 
equivalente a la función COND. En 
BASIC estas cadenas terminan mu- 
chas veces con un simple ELSE. Esto 
significa que si no se satisface ninguno 
de los IFs el último ELSE dominará 
sobre todos los otros casos. Para tener 
este comportamiento en LISP, la fun- 
ción COND se termina con la cláu- 
sula: 

(T (código en LISP para otros 
casos)) 

Si COND se encuentra con que no 
se satisface ninguno de sus otros ar- 
gumentos, llega a esta cláusula y eva- 



lúa T que tiene el valor T. Así, las ex- 
presiones que siguen a T siempre son 
evaluadas. 



SEGUIMIENTO 

Puede que te resulte difícil recordar 
todo lo que sigue. El LISP te facilita 
las cosas por medio de una lista de ob- 
jetos. Dicha lista contiene todos los 
átomos que el LISP sabe que tienen 
un valor. La función OBLIST o algo 
parecido tiene como valor la lista de 
objetos. Así, para ver todos los obje- 
tos conocidos por el LISP, teclea: 

(OBLIST) 

Fíjate que aunque esta función no 
tiene parámetros, también tiene que ir 
entre paréntesis. En la lista de objetos 
encontrarás todos los nombres de las 
funciones familiares como CAR y 
CDR. También, si haces algo como lo 
siguiente: 

(SETQ LUIS 1) 

te encontrarás el átomo LUIS añadido 
a la lista. 

El hecho clave que permite escribir 
programas en LISP es, como en el 
LOGO, que el usuario puede definir 
sus propias funciones. Estas figurarán 
entonces en la lista de objetos y, en lo 
que al LISP respecta, son tan impor- 
tantes como las que lleva incorporadas 
el propio LISP. En consecuencia pue- 
des ampliar el LISP para que incluya 
cualquier cualidad peculiar que quisie- 
ras que tuviera; en la segunda parte de 
esta serie desvelaremos los misterios 
de cómo usar y definir funciones en 
LISP. 



A NUESTROS NUEVOS LECTORES 

En las páginas centrales de la revista encontrarás la sección 
«Programación de juegos» que se compone de una serie de artícu- 
los coleccionares que continúan mes tras mes. 

Como la paginación de estos artículos es siempre correlativa 
con la del mes anterior apreciarás que no se corresponde con la del 
resto de la revista, pudiendo parecer a los más despistados que 
faltan páginas o que se trata de un error de encuademación. 
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EL GENERADOR 
DE DISCURSOS 



¿Cuántas veces te has visto obligado a 
dar un discurso? Tal vez en aquella cena 
con unos amigos, o en la fiesta de cum- 
pleaños en la que eres el protagonista, y 
claro, evidentemente te ves obligado a 
decir unas palabras. 



Pues bien, se acabó el problema que 
representa improvisar ese vergonzoso 
momento, sobre todo si eres una per- 
sona no muy dispuesta al monólogo. 

Desde ahora con nuestro programa 
podrás preparar los discursos a tu me- 
dula. Y cuando decimos a tu medida, 
nos referimos a que podrás hacerlo 
todo lo extenso que creas oportuno. 
Basta con decir cuántos párrafos quie- 
res, y el microordenador los seleccio- 
nará, escogiendo entre los textos dis- 
puestos en el programa. 

Tampoco debe preocuparte sobre 
que versará el tema, dado que el texto 
podemos considerarlo neutro, es de- 
cir, si te fijas no estás diciendo nada ni 
tampoco puedes ofender a nadie: sim- 
plemente se trata de un encadenado 
de palabras que siguen unas normas 
gramaticales, y que por su construc- 
ción y por la utilización de palabras 
rimbombantes, da la sensación de que 
hablas de un tema complejo. 

En adelante podrás sorprender a tus 
compañeros, amigos o familiares. 
Cuando en la próxima ocasión que des 
un discurso, se encuentren que en vez 
de aquellas esperadas cuatro frases de 
siempre, leas tu fabulosa perorata. Si 
el texto que presenta no es de tu com- 
pleto agrado podrás fácilmente intro- 
ducir otras frases que se ajusten más a 
tus preferencias. 

Podrás observar primero su cara de 
asombro, su perplejidad, y por último 
el estallido de sus risas, convirtiendo 
ese momento que antes deseabas evi- 
tar en uno de los más divertidos, tanto 
para ti como para los que te acompa- 
ñen. 



PRESENTACION 



El programa a grandes rasgos po- 
demos dividirlo en dos partes: la pri- 
mera corresponde a los textos, y la se- 
gunda al propio programa encargado 
de organizados y mostrarlos en la pan- 
talla y/o impresora. 

Como en todo programa de entre- 
tenimiento disponemos para comen- 
zar de una presentación. Dicha pre- 
sentación podemos encontrarla en las 
instrucciones de las líneas 1 140 a 1210. 
donde nos situamos en SCREEN 3, es 
decir en modo gráfico de baja resolu- 
ción, que nos permite hacer grandes \ 
vistosos rótulos. 

Recordaréis que en el número 6 de 
nuestra revista, se dedicó un artículo 
a la memoria de Video de MSX: Sereen 
3, donde se trato ampliamente el fun- 
cionamiento de la Sereen 3, a la que 
ahora nos referimos en la presenta- 
ción. 

Al ejecutar el programa en la pan- 
talla aparecerá el rótulo «prepara tu 
discurso», que permanecerá durante 
cinco segundos. 

En ese tiempo y a la vez que se ve 
el rótulo en la pantalla, el microor- 
denador realiza otras tareas como la 
de cargar los textos en las matrices 
previamente definidas. Dichos textos 
forman parte de sentencias DATA al- 
macenadas desde la línea 100 a la 
1000, siendo los que más tarde, de 
forma aleatoria, aunque con cierto 
control, compondrán el discurso. 

Seguidamente espera que acabe de 
transcurrir el tiempo, y pasa de nuevo 
a la pantalla 0 con caracteres de ta- 
maño normal, un formato de 80 co- 
lumnas, papel gris y tinta negra. 

Para este programa hemos escogido 
una presentación sencilla pero vistosa, 
ya que aunque no se trate de un juego 
que permita brillantes carátulas llenas 
de color y movimiento, sí merece una 



DESCRIPCION DEL PROGRAMA 

El comando INPUTde la línea 1460 
nos pregunta ¿cuántos párrafos quie- 
res'. \ debiendo entrar por el teclado, 
el número deseado. 

Asimismo la sentencia de la línea 
1490 pregunta ¿salida por la impre- 
sora?, poniendo la variable PR a 1 o 
a 0 dependiendo de si queremos salida 
por la impresora o no. Estas son las 
dos únicas preguntas que realiza el 
programa para poder confeccionar un 
discurso tan largo como hayamos de- 
finido. 

En la línea 1540 entramos en lo que 
hemos llamado la generación del dis- 
curso, donde se generan todos los pá- 
rrafos, cada uno con una serie de ca- 
racteres de los textos que tiene alma- 
cenados en las matrices. Las frases es- 
tán divididas en cuatro grupos. Para 
formar un párrafo se toma una frase 
de cada grupo hasta completar los cua- 
tro. 

La línea 250 nos indica que 15 es el 
número de datos que deben tomarse 
del primer grupo. De la línea 260 a 400 
figura el primer número de datos. 

En la 450 vuelve a hacer referencia 
al número de datos del segundo 



buena portada. 
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■ 


PRESENTACION 


■ 


DESCRIPCION DEL 


PROGRAMA 


■ 


COMBINACION 


ALEATORIA 



grupo, que es también de 15, y así su- 
cesivamente hasta completar los cua- 
tro grupos, que están definidos en la 




460 a 600 para el segundo grupo, en la 
660 a 800 para el tercero, y en la 850 
a 1000 para el cuarto grupo. 

Durante la confección del pro- 
grama, dejamos la opción al usuario 
de poder ampliar este número de 15 
datos hasta 20, dando versatilidad al 
mismo. Así creamos la matriz DM(4, 
20), es decir cuatro, una por cada 
grupo, y 20, porque puede tener hasta 
20 frases aunque en este momento dis- 
ponga de 15. 

COMBINACION ALEATORIA 



Al ir apareciendo los textos de 
forma aleatoria, podría darse el caso 
de que se repitieran algunos de ellos 
con una frecuencia inadecuada. Para 
evitar este problema, en la línea 1320, 
se ha definido la variable LT a 5, que 
es el número de párrafos que deben 
transcurrir hasta volver a permitir la 
utilización de la misma frase. Por 
ejemplo, si modificamos la variable 
LT a 1, permitimos que las frases pue- 
dan repetirse constantemente. De esta 
forma aumentando o disminuyendo el 
valor, variaremos la frecuencia má- 
xima de repetición de las frases. 

Para su control existe un contador 
que inspecciona los párrafos y que im- 
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pule a la frase que aparezea antes de 
pasar los cinco párrafos, a partir de 
ese momento la frase queda libre pa- 
sando de nuevo a estar disponible. 

Otro de los problemas que podrían 
plantearse es la aleatoriedad. El mi- 
eroordenador dispone ya de un sis- 
tema de números aleatorios, pero no 
era apropiado para nuestro cometido, 
ya que tiene tendeneia a comenzar 
siempre por los mismos números, mo- 
tivo por el eual creamos otro sistema, 
que encontramos en la línea 1540, y 
que esta basado en el tiempo de fun- 
cionamiento del ordenador. 

Con estos condicionantes llegamos 
a la línea 1630, donde se analiza si la 
frase seleccionada está prohibida o no. 
En caso de que lo esté, busca otra. 

Una vez tiene la frase permitida, 
pasa a llamar a la subrutina de «escri- 
tura sin romper palabras», situada en 
la línea 1800. Como su nombre indica 
esta subrutina se encarga de revisar el 
final de línea de las frases, teniendo 
como objeto que ninguna palabra 
quede cortada. Para ello, mira el final 
buscando un espacio; si no lo encuen- 
tra, va quitando caracteres hasta lo- 
calizarlo, pasando la última palabra a 
la línea siguiente. 

Hemos definido un ancho de línea 
de 70 caracteres, aunque este número 
puede ser modificado por el usuario, 
rectificando la variable LN de la línea 
1450. 

Esta subrutina que va de la línea 
1800 a 1970, podría emplearse aisla- 
damente de este programa, en otros 
programas, siempre que deseemos im- 
primir palabras enteras. 

Cuando ha terminado el número de 
párrafos preseleccionados, pregunta 
( ,quieres otro«, esto sucede en la línea 
1730. 

Al terminar el microordenador 
vuelve a restaurar las condiciones nor- 
males de la máquina. 

100 ' ************************ 

110 ' * 

120 ' * Programa generador de * 

130 ' * 

140 ' * discursos de * 

150 ' * 

160 ' * compromiso. * 



170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 

300 
310 

320 



INPUT MSX 



************************ 



Primer grupo de datos. 



DATA 15 

DATA "Queridos colegas, " 
DATA "Por otra parte, " 
DATA "Asi mismo, " 
DATA "Sin embargo, no 
olvidemos que " 
DATA "De igual manera " 
DATA "La practica de la vida 
cotidiana prueba que " 
DATA "No es indispensable 
argumentar el peso y la 
significación de estos 



problemas ya que " 
330 DATA "Las experiencias ricas 

y diversas, " 
340 DATA "El afán de 

organización, pero sobre todo 

350 DATA "Los principios 

superiores tecnológicos, asi 
como " 

360 DATA "No olvidemos que " 
370 DATA "Sin lugar a dudas, 

podemos afirmar que " 
380 DATA "No es mi intención 

extenderme demasiado en el 

tema, pero debemos decir 

que " 

390 DATA "Hemos realizado 

profundos estudios, que nos 
han llevado a la conclusión 
de que " 
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400 DATA "Asi pues, amigos 

mios " 
410 ' 

420 'Segundo grupo de datos. 
430 ' 

440 ' 

450 DATA 15 

460 DATA "la realización de los 

deberes del programa " 
470 DATA "la complejidad de los 

estudios realizados por los 

dirigentes " 
480 DATA "el aumento constante 

en cantidad y en extensión 

de nuestra actividad " 
490 DATA "la estructura actual 

de la organización" 
500 DATA "el nuevo modelo de la 

actividad de la organización " 
510 DATA "el desarrollo continuo 

de distintas formas de 

actividad " 
520 DATA "la garantía constante 

de nuestra actividad de 

información y propaganda " 
530 DATA "el reforzamiento y 

desarrollo de las estructuras 

540 DATA "la consulta con 

numerosos colaboradores y 

simpatizantes " 
550 DATA "el inicio de la acción 

general de formación de las 

actitudes " 
560 DATA "la modificación 

realizada en la estructura de 

la información " 
570 DATA "la creación de 

proyectos complejos conlleva 

un inevitable riesgo que " 
580 DATA "el modelo de creación 

actualmente existente " 
590 DATA "la modernización de 

las tendencias actuales " 
600 DATA "la linea que define 

nuestra actuación " 
610 ' 

620 'Tercer grupo de datos. 

630 ' -— 

640 ' 

650 DATA 15 

660 DATA "nos obliga al análisis" 



670 DATA "cumple un rol 

esencial " 
680 DATA "exige la precisión y la 

determinación " 
690 DATA "ayuda a la 

preparación y a la realización 

700 DATA "garantiza la 

participación de un grupo 

importante en la formación " 
710 DATA "cumple deberes 

importantes en la 

determinación " 
720 DATA "facilita la creación " 
730 DATA "no obstaculiza la 

apreciación de la 

importancia " 
740 DATA "ofrece un ensayo 

importante de verificación " 
750 DATA "implica el proceso de 

reestructuración y de 

modernización " 
760 DATA "colabora a la mayor 

organización en el estudio " 
770 DATA "incorpora nuevas 

directrices, siempre 

interesantes en la creación " 
780 DATA "aporta entusiasmo 

para continuar, cada vez con 

mas fuerza, con la tarea de 

definición " 
790 DATA "nos obliga a preparar 

unas bases definitivas para 

el desarrollo " 
800 DATA "conlleva la 

reestructuración dinámica " 
810 ' 

820 'Cuarto grupo de datos. 

830 ' 

840 ' 

850 DATA 15 

860 DATA "de las condiciones 

financieras y administrativas 

existentes " 
870 DATA "de las directivas de 

desarrollo para el futuro " 
880 DATA "del sistema de 

participación general. " 
890 DATA "de las actividades de 

los miembros de las 

organizaciones hacia sus 

deberes." 



900 DATA "de las nuevas 

proposiciones " 
910 DATA "de las direcciones 

educativas en el sentido del 

progreso. " 
920 DATA "del sistema de 

formación de cuadros que 

corresponda a las 

necesidades " 
930 DATA "de las condiciones de 

las actividades apropiadas. " 
940 DATA "del modelo de 

desarrollo. " 
950 DATA "de las formas de 

acción. " 
960 DATA "de los marcos en los 

que se desarrolla la 

actividad." 
970 DATA "de bases previas a los 

acuerdos que determinan 

nuestro futuro." 
980 DATA "de la creación de 

nuevas normas." 
990 DATA "de las actividades." 
1000 DATA "de las nuevas ideas 
que fomentan a la vez a los 
nuevos proyectos." 
1010 ' 

1020 'Inicializaciones. 
1030 • 

1040 KEY OFF 

1050 SCREEN 3 

1060 OPEN "grp : " AS #1 

1070 KEY OFF 

1080 COLOR 10,5,5 

1090 CLS 

1100 DIM T$(4,15) 

1110 DIM N(4) 

1120 DIM DM(4,20) 

1130 PR = 0:'printer off 

1140 Titulo. 

1150 ' 

1160 PRESET (10,10) 
1170 PRINT #1, "Prepara " 
1180 PRESET (10,60) 
1190 PRINT #1," tu " 
1200 PRESET (10,110) 
1210 PRINT #1, "discurso" 
1220 'Asignación de cadenas 

1230 ' 

1240 TIME = 0 
1250 RESTORE 
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1260 FOR 1 = 1 TO 4 


1550 




1830 


LP=LN-LC+1 


1270 READ N(l) 


1560 


A = TIME 


1840 


IF MID$(A$,LP,1) = " " 


1280 FOR J=l TO N(l) 


1570 


A = A-(10*INT(A/10)) 




GOTO 1880 


1290 READ T$ (|,J) 


1580 


K = RND(-A) 


1850 


LP=LP-1 


1300 NEXTJ 


1590 


PRINT:PRINT 


1860 


IF LP = 0 GOTO 1900 • 


1310 NEXT 1 


1600 


FOR 1 = 1 TO NP 


1870 


GOTO 1840 


1320 LT=5:'L¡mit para repet. 


1610 


FOR J = l TO 4 


1880 


P$ = LEFT$(A$,LP) 


1330 FOR J=l TO 4 


1620 


N1 = 1+(INT(RND(A)*N(J))) 


1890 


GOSUB 2040:'print p$ 


1340 FOR 1=1 TO 20 


1630 


IF DM(J,N1)<LT GOTO 


1900 


GOSUB 1980:'pr¡nt 


1350 DM (J,I) = LT=1 




1620 


1910 


LC=0 


1360 NEXT 1 


1640 


DM (J, N1) = 0 


1920 


A$ = RIGHT$(A$,LEN(A$)- 


1370 NEXT J 


1650 


FOR K=l TO N(J) 




LP) 


1380 IF TIME<50*5 GOTO 1380 


1660 


DM(J,K) = DM(J,K) + 1 


1930 


GOTO 1820 


1390 'Entrada de datos. 


1670 


NEXT K 


1940 


LC = LC + LEN(A$) 


1400 ' 


1680 


A$=T$(J,Nl):GOSUB 


1950 


P$=A$ 


1410 SCREEN 0 




1800 


1960 


GOSUB 2040:'print p$ 


1420 WIDTH 80 


1690 


NEXT J 


1970 


RETURN 


1430 COLOR 1,14,14 


1700 


GOSUB 1980: GOSUB 


1980 


'salto de linea 


1440 CLS 




1980 


1990 


- 


1450 LN = 70:LC = 0 


1710 


NEXT 1 


2000 


PRINT 


1460 INPUT "Numero de 


1720 


PRINT:PRINT 


2010 


IF PR = 1 THEN LPRINT 


párrafos "¡ NP 


1730 


PRINT "Deseas otro 


2020 


LC=0 


1470 NP = INT(ABS(NP)) 




discurso (S/N)" 


2030 


RETURN 


1480 IF NP = 0 THEN PRINT 


1740 


A$ = INKEY$ 


2040 


'escritura de p$ 


"Como que ninguno, por lo 


1750 


IF A$ = "" GOTO 1740 


2050 




menos uno no ?" 


1760 


IF A$ = "S" OR A$ = "s" 


2060 


PRINT P$; 


1490 INPUT "salida por 




GOTO 1390 


2070 


IF PR=1 THEN LPRINT 


impresora (S/N)" ; PT$ 


1770 


IF A$ = "N" OR A$ = "n" 




P$; 


1500 IF PT$ = "s" THEN 




GOTO 2090 


2080 


RETURN 


PT$ = "S" 


1780 


IF PR=1 THEN LPRINT 


2090 


'fin de programa 


1510 IF PT$ = "n" THEN 




P$; 


2100 


t 


PT$ = "N" 


1790 


GOTO 1730 


2110 


SCREEN 0 


1520 IF PT$o"S" AND 


1800 


'escritura sin romper 


2120 


COLOR 15,4,4 


PT$o"N" GOTO 1490 




palabras 


2130 


WIDTH 40 


1530 IF PT$ = "S" THEN PR = 1 


1810 




2140 


CLS 


ELSE PR = 0 


1820 


IF LC+LEN(A$)<LN GOTO 


2150 


KEY ON 


1540 'Generación del discurso. 




1940 


2160 


END 
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BARAJA 
Y REPARTE 



Los ordenadores pueden ser muy 
buenos jugadores de cartas si se pro- 
graman correctamente; además nunca 
se aburren. 

Aquí tienes la forma de programar los 
gráficos de una baraja. 

¿Te encuentras distanciado de tus 
amigos, parientes o colegas por ha- 
berles dejado sin un duro jugando a 
las cartas? ¿Eres tú el que está sin 
blanca por haber jugado con exper- 
tos? Sea como fuere en los capítulos 
siguientes de nuestro coleccionable te 
presentamos la solución. Progra- 
mando tu ordenador para que juegue 
contigo a las veintiuna, tendrás una 
víctima propiciatoria. 

En esta primera parte nos ocupa- 
remos de la manera de generar las ru- 
tinas gráficas con las que se construye 
la baraja, el resto del programa que es 
el juego propiamente dicho se presen- 
tará en los dos capítulos siguientes. 

Pero no te olvides de almacenar 
cada una de las secciones en cinta a 
medida que construyes el juego. 

Si no eres un experto en el juego de 
las veintiuna, no te preocupes: en la 
última parte del programa presenta- 
remos un conjunto completo de las re- 
glas del juego pero antes debes ser ca- 
paz de programar un mazo de cartas. 

La rutina que te permitirá barajar 
las cartas y preparar las rutinas gráfi- 
cas sería algo así: 



10 CLEAR 400 

20 DIM C(52),P$(52),N(52), 

V$(52),W(52) 
30 OPEN "grp : " AS #1 
40 REM CRUPI EL CRUPIER 
50 CLS:KEYOFF:COLOR 3,1,1 
130 COLOR 3,1,1 
150 SCREEN 2 

160 LINE (10,10)-(245,150), 



10.B 

170 PAINT (5,5), 10 
180 LINE (10,155)-(245,190), 
l.BF 

190 PSET (17, 160), 1 

200 PRINT #1, "Barajando." 

210 COLOR 1 

220 PSET (100,2), 10 

230 PRINT #1, "PUNTUACION:" 

240 COLOR 3 

250 D1=20:D2=15 

260 RESTORE 2170 

270 FOR A=l TO 52 

280 READ S 

290 N(A)=S 

300 READ S$ 

310 V$(A) = S$ 

320 NEXTA 

330 REM BARAJANDO LA 

BARAJA 
340 FOR A-1T052 
350 D=INT(RND(-TIME)*52)+1 
360 FOR U = l TO A 
370 IF W(D) = 53THEN GOTO 

350 
380 NEXT U 
390 C(A) = N(D) 
400 W(D) = 53 
420 NEXTA 

430 REM BARAJANDO PALOS 

440 FOR A=l TO 52 

450 D=INT(RND(-TIME)*52)+1 

460 FOR U = l TO A 

470 IF W(D) = 54 THEN GOTO 

450 
480 NEXT U 
490 P$(A) = V$(D) 
500 W(D) = 54 
520 NEXTA 

560 LINE (10,155)-(245,190), 
1,BF 

600 FOR A=l TO 52 STEP 2 
610 IF P$(A) = "C" THEN GOTO 
2210 



■ 


DISPOSICION 


DE LAS CARTAS 


■ 


DIBUJANDO LAS CARTAS 


■ 


BARAJADO 


■ 


REPARTO 



620 IF P$(A) = "D" THEN GOTO 
2310 

630 IF P$(A) = "P" THEN GOTO 
2390 

640 IF P$(A) = "T" THEN GOTO 
2490 

810 REM REPRESENTACION DE 

CARTA 
820 COLOR 1 

830 IF C(A)<= 10 THEN GOTO 
900 

840 IF C(A)=11 THEN VS$ = "J" 
850 IF C(A) = 12 THEN VS$ = "Q" 
860 IF C(A)=13 THEN VS$ = "K" 
870 IF C(A)=14 THEN VS$ = "A" 
880 PSET (D1.D2 + 2), 15:PRINT 

#1,VS$ 
890 GOTO 910 

900 PSET (D1,D2 + 2),15:PRINT 

#1,C(A) 
950 D1 = D1+32:IF Dl = >230 
THEN Dl = 10:D2 = D2 + 55 
2170 DATA 2,C,3,C,4,C,5,C,6, 

C,7,C,8,C,9,C,10,C,11,C, 

12,C,13,C,14,C 
2180 DATA 2,D,3,D,4,D,5,D,6, 

0,7,0,8,0,9,0,10,0,11,0, 

12,D,13,D,14,D 
2190 DATA 2,P,3,P,4,P,5,P,6, 

P,7,P,8,P,9,P,10,P,11,P, 

12,P,13,P,14,P 
2200 DATA 2,T,3,T,4,T,5,T,6, 
• T,7,T,8,T,9,T,10J,11,T, 

12,T,13,T,14,T 
2210 REM CARTAS 
2220 REM CORAZONES 
2230 LINE (Dl,D2)-(Dl + 30, 

D2 + 50),15,BF 
2240 CIRCLE (D1 + 12.D2 + 20), 

3,8 

2250 CIRCLE (D1 + 17.D2 + 20), 
3,8 

2260 PAINT (D1 + 12.D2 + 20), 

8:PAINT(Dl + 17,D2 + 20),8 
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2270 LINE (Dl+9, 

D2 + 20)-(Dl + 15, 

D2 + 32),8 
2280 LINE (Dl + 20, 

D2 + 20)-(Dl + 15, 

D2 + 32),8 
2290 PAINT (DI + 15,D2 + 30),8 
2300 GOTO 620 
2310 REM DIAMANTES 
2320 LINE (Dl,D2)-(Dl+30, 

D2 + 50),15,BF 
2330 LINE (Dl + 15, 

D2 + 20)-(Dl + 20, 

D2 + 25),8 
2340 LINE (Dl+20, 

D2 + 25)-(Dl + 15, 

D2 + 30),8 
2350 LINE (Dl + 15, 

D2 + 30)-(Dl + 10, 

D2 + 25),8 



2360 LINE (Dl + 10, 

D2 + 25)-(Dl + 15, 

D2 + 20),8 
2370 PAINT (Dl + 15, D2 + 25), 8 
2380 GOTO 630 
2390 REM PIGS 
2400 LINE (Dl,D2)-(Dl + 30, 

D2 + 50U5.BF 
2410 CIRCLE (D1 + 12.D2 + 30), 

3,1 

2420 CIRCLE (DI + 18.D2 + 30), 
3,1 

2430 PAINT (D1 + 12.D2 + 30), 

1:PAINT(D1 + 18,D2 + 30),1 
2440 LINE (Dl + 9, 

D2 + 30)-(Dl + 15, 

D2 + 20U 
2450 LINE (Dl+21, 

D2 + 30)-(Dl + 15, 

D2 + 20),l 



2460 PAINT (D1 + 15.D2 + 25U 
2470 LINE (Dl + 15, 

D2 + 30)-(Dl + 15, 

D2 + 36),l 
2480 GOTO 640 
2490 REM TREBOLES 
2500 LINE (Dl,D2)-(Dl + 30, 

D2 + 50U5.BF 
2510 CIRCLE (Dl + 15, D2 + 20), 

3,1 

2520 CIRCLE (DI + 12.D2 + 26), 
3,1 

2530 CIRCLE (DI + 18.D2 + 26), 
3,1 

2540 PAINT (Dl + 15, D2 + 20),l: 
PAINT(D1 + 12,D2 + 26),1: 
PAINT(D1 + 18,D2 + 26),1 

2550 LINE (Dl + 15, D2 + 26)- 
(D1 + 15,D2 + 34),1 

2560 GOTO 650 



La forma de trabajo del programa 
es la siguiente: 

La línea 20 dimensiona cinco varia- 
bles: C encargada de almacenar las 
cartas barajadas, p$ encargada de al- 
macenar los palos de las cartas, la N y 
V$ realizan la misma función que C y 
P$ pero sólo cuando la baraja esté ya 
ordenada y W es un simple contador 
encargado de que no existan dos car- 
tas iguales. La línea 30 nos abre un fi- 
chero con el que podemos escribir ca- 
racteres en una pantalla en modo de 
gráficos. La línea 50 elimina las teclas 
de función y borra la pantalla. La 130 
prepara el color, mientras la 150 pre- 
para la pantalla en modo de gráficos 
de alta resolución. Hasta 240 se diseña 
el aspecto que tendrá la pantalla du- 
rante el juego donde aparecerá el 
mensaje BARAJANDO. La línea 250 
define dos variables DI y D2 encar- 



gadas de seleccionar el lugar de la pan- 
talla donde aparecerá cada carta. En 
la 260 se indica a qué línea deben re- 
ferirse las sentencias READ para leer 
los DATAS. Desde la 270 hasta la 320 
se ordena una baraja completa de 52 
cartas, de arriba abajo por corazones, 
diamantes, picas y tréboles. Desde la 
330 hasta la 420 se baraja el mazo sin 
considerar los palos, es decir, en una 
matriz de 52 se reparten cuatro ases, 
cuatro dieces y así sucesivamente 
hasta completar la baraja. La variable 
W se encarga de que no coincidan dos 
cartas en la misma posición de la ba- 
raja y de que no haya dos iguales. En 
la línea 390 la carta barajada se ar- 
chiva en la matriz C. Desde 430 a 520 
se barajan sólo los palos, el funcio- 
namiento de esta rutina es igual a la 
anterior, el palo barajado se archiva 
en la matriz p$. En 560 se traza un rec- 



tángulo de color negro que borra la 
palabra BARAJANDO que se en- 
cuentra en pantalla. La 600 crea un 
bucle con cabida para 26 peticiones de 
carta. Desde 610 a 640 se comprueba 
qué palo es la última carta pedida y se 
manda el control a la rutina que dibuja 
la carta correspondiente. Desde la lí- 
nea 810 hasta la 910 se programa la re- 
presentación del símbolo de la carta 
encima de su dibujo, si el símbolo de 
la carta está entre dos y diez es repre- 
sentado por la línea 9(K), si se encuen- 
tra entre once y catorce será sustituido 
por los símbolos J, Q, K o A y repre- 
sentado en la línea 880. La línea 950 
se encarga de desplazar la posición de 
la pantalla donde se representará la si- 
guiente carta. Entre 2170 y 2200 se de- 
fine una baraja, desde 2210 hasta 2560 
se programan cuatro rutinas que di- 
bujan los distintos palos. 




EMPIEZA 
EL JUEGO 



REPARTIENDO LAS CARTAS 



LAS APUESTAS 



DOBLAR, CAMBIAR Y PLANTARSE 
HACER SALTAR LA BANCA 



EJECUCION DE LOS TOTALES 



El banquero fija en ti su mirada de 
hielo. Haces tu apuesta y recibes otra 
carta, pero ¿pides carta o te plantas? En 
esta ocasión nos ocuparemos de las lí- 
neas de programa correspondientes a la 
parte del jugador. 

Continuando a partir de la rutina de 
gráficos que tecleaste en el capítulo 
anterior, ahora te hacen falta dos sec- 
ciones más de programa, una para ma- 
nejar las respuestas del jugador y otra 
para hacer posible que juegue el or- 
denador. En este capítulo veremos las 
líneas que hacen falta para el jugador 
y para las fichas, pero no llegaremos 



muy lejos jugando ahora, ya que to- 
davía no has enseñado a jugar a tu or- 
denador. 

Esta sección del programa está re- 
lacionada con unas cuantas tareas di- 
ferentes. No te preocupes si no estás 
muy seguro de las reglas exactas del 
juego de las veintiuna, ya nos ocupa- 
remos de ellas junto con la última 
parte del programa. Básicamente el 
programa tiene que hacer tres cosas, 
ocuparse del reparto de las cartas, per- 
mitir al jugador hacer apuestas, y pe- 
dir cartas adicionales y finalmente 
tiene que calcular la puntuación del 
jugador. 



La siguiente sección del programa 
contabiliza los puntos del jugador, 
comprueba que no se haya pasado de 
veintiuno, o que sea igual a veintiuno 
o que esté entre veintiuno y dieciséis 
para ofrecer la posibilidad de plan- 
tarse. Después el ordenador pide al 
jugador que haga s»i apuesta por esta 
carta; tras hacerlo el ordenador mues- 
tra la cantidad de dinero apostado so- 
bre la mesa, la cantidad que le queda 
al jugador y la que le queda a la banca. 
El programa además presenta mensa- 
jes al jugador dependiendo de la ju- 
gada, como: has hecho 21, te ha salido 
un as, etc.. 




Agrega ya las siguientes líneas al 
programa del capítulo anterior. 

650 FOR B = 2 TO 10 
660 IF C(A) = B THEN PA= 

PA+B 
670 NEXT B 
710 IF C(A)=11 THEN 

PA=PA+10 
720 IF C(A)=12 THEN 

PA=PA+10 
730 IF C(A)=13 THEN 

PA=PA+10 
780 IF C(A)=14 THEN GOTO 

2080 

910 LINE (200,0)-(255,10),10, 
BF 

920 PSET (200,2), 10 
930 PRINT #1,PA 
940 COLOR 3 
960 IF PA>21 THEN GOTO 
1240 

980 IF PA=21 THEN GOTO 



1440 

1000 IF PA=>16 AND PA<21 

THEN 1640 
1020 LINE (10,155)-(245, 

190U.BF 
1030 PSET (17, 160), 1 
1040 PRINT #1, 

"APUESTA." 
1050 PSET (17, 170), 1 
1060 PRINT #1, "1-100$, 

3- 1000$" 
1070 PSET (17, 180), 1 
1080 PRINT #1, "2-500$, 

4- 10000$" 
1090 J$ = INKEY$ 
1100 IF J$ = "l" THEN 

JA=JA+100: 

GOTO 1150 
1110 IFJ$ = "2"THEN 

JA=JA+500: 

GOTO 11 50 
1120 IF J$ = "3" THEN 



JA=JA+1000: 

GOTO 11 50 
1130 IF J$ = "4" THEN 

JA = JA+ 10000: 

GOTO 11 50 
1140 GOTO 1090 
1150 LINE (15,130)-(230, 

148U.BF 
1160 PSET (15, 140), 12 
1170 PRINT #1,JA*2;"$H"; 

AP-JA;"$M-" ; 

PP-JA 

1180 LINE (10,155)-(245, 

190),1,BF 
1190 PSET (17, 160), 1 
1200 PRINT #1, "CUBRO LA 

APUESTA." 
1210 FOR WE=1 TO 500:NEXT 

WE 

1220 NEXT A 

1240 LINE (10,155)-(245, 

190),1,BF 
1250 PSET (17, 160), 1 
1260 PRINT #1,"TE HAS 

PASADO, HAS HECHO:"; 

PA 

1270 PSET (17, 170), 1 
1280 PRINT #l,"YO GANO." 
1290 FOR WE=1 TO 500:NEXT 
WE 

1300 PP=PP+JA:AP= 
AP-JA 

1310 IF PP=<0 THEN GOTO 

2570 
1320 GOTO 1780 
1440 LINE (10,155)-(245, 

190M.BF 
1450 PSET (17, 160), 1 
1460 PRINT #1,"HAS HECHO 

21." 

1470 PSET (17, 170), 1 
1480 PRINT #1, "TU GANAS." 
1490 FOR WE=1 TO 500:NEXT 
WE 

1500 AP=AP+JA:PP=PP-JA 
1510 IF PP=<0 THEN GOTO 

2570 
1520 GOTO 1780 
1640 LINE (10,155)-(245, 

190),1,BF 
1650 PSET (17,160), 1 
1660 PRINT #1, 
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"(l)PLANTARSE." 
1670 PSET (17,170),1 
1680 PRINT #1,"(2)PEDIR 

CARTA." 
1690 K$=INKEY$ 
1700 IF K$="l" THEN GOTO 

1880 

1710 IF K$ = "2" THEN GOTO 

1010 
1720 GOTO 1690 
1780 LINE (10,155)-(245, 

190U.BF 
1790 PSET (17, 160), 1 
1800 PRINT #l,"(l)VOLVER A 

JUGAR." 
1810 PSET (17, 170), 1 
1820 PRINT #1, 

"(2)RETIRARTE." 
1830 K$=INKEY$ 
1840 IF K$ = "l" THEN GOTO 

130 

1850 IF K$ = "2" THEN END 

1860 GOTO 1830 

1880 LINE (10,155)-(245, 

190U.BF 
1890 PSET (17, 160), 1 
1900 PRINT #1, "TE PLANTAS 

Y" 

1910 IF PA>PB THEN PSET (17, 
170),1:PRINT #1, 
"GANAS."; PA;"a"; 
PB:FOR WE=1 TO 
500:NEXT WE:AP=AP+ 
JA:PP=PP-JA:GOTO 1950 

1920 IF PB>PA THEN PSET (17, 
170),1:PRINT #1, 
"PIERDES."; PB; "a"; 
PA:FOR WE=1 TO 
500:NEXT WE:AP=AP- 
JA:PP=PP+JA:GOTO 1950 

1930 FOR WE = 1 TO 500:NEXT 
WE 

1940 PSET (17,170), LPRINT 
#1, "HEMOS 

EMPATADO. ":FOR WE=1 

TO 500:NEXT WE 
1950 IF PP=<0 THEN GOTO 

2570 
1960 GOTO 1780 
2080 LINE (10,155)-(245, 

190U.BF 
2090 PSET (17, 160), 1 



2100 

2110 
2120 

2130 
2140 



2150 



2160 



PRINT #1,"TE HA SALIDO 
UN AS" 

PSET (17, 170), 1 

PRINT #1,"(1)SUMAR 

1-(2)SUMAR 11" 

K$=INKEY$ 

IF K$="l" OR K$ = "2" 

THEN GOTO 2150 ELSE 

2130 

IF K$="l" THEN 
PA=PA+1 ELSE 
PA = PA+ 11 
GOTO 790 



MAS CARTAS 



Las líneas 650 a 670 comprueban si 
la carta del jugador no es una figura, 
en cuyo caso la variable PA es sumada 
al valor original de la carta. Desde 710 
a 730 se comprueba si la carta es una 
figura, sumando entonces 10 a PA. La 
línea 780 comprueba si es un as, en 
cuyo caso manda el control a una ru- 
tina que nos pregunta si queremos su- 
mar 1 u 11. Desde la línea 910 a 940 
se imprime la puntuación total en la 
pantalla y la 960 se cerciora de que no 
nos hayamos pasado de 21. De ha- 
berlo hecho el ordenador contestaría: 
TE HAS PASADO, YO GANO. La 
línea 980 comprueba si hemos hecho 
21, en cuyo caso nos diría HAS HE- 
CHO 21 , TU GANAS; en caso de que 
nuestros puntos superen 16 la línea 
1000 pasa el control a una rutina que 
nos pregunta si queremos plantarnos o 
pedir carta. 



APUESTAS 



Entre 1020 y 1140 se extiende una 
rutina que nos pregunta la cantidad 
que queremos apostar, esta cantidad 
es guardada carta tras carta por la va- 
riable JA, en 1170 se nos muestra en 
pantalla la cantidad de dinero apos- 
tado sobre la mesa, la cantidad en dis- 
posición del jugador y la cantidad en 
disposición de la máquina, el resto de 
esta parte del programa está formado 
por subrutinas de mensajes como, por 
ejemplo, volver a jugar o retirarte, te 
plantas y ganas, te plantas y pierdes. 
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HACER SALTAR 
LA BANCA (I) 



En esta oportunidad trataremos de 
convertir en realidad el sueño que calla- 
damente acaricia todo jugador: hacer 
saltar la banca. 

La cantidad de dinero que le resta a 
la máquina es igual a la variable PP, 
que almacena todo su dinero, menos 
JA que es igual a la cantidad apostada. 
Si la cantidad de dinero que le resta a 
la banca es igual a cero, será detectado 
en las rutinas de mensajes y se enviará 
el control a la línea 2570 donde apa- 
recerá un mensaje de felicitación y ha- 
bremos ganado; el control retorna en- 
tonces al principio, preguntándonos 
de cuánto dinero disponemos. 

Para completar el juego de las vein- 
tiuna tienes que programar tu orde- 
nador para que juegue cuando le to- 
que el turno. Aquí tienes, además, 
una descripción de las reglas del juego 
para el caso de que no estés familia- 
rizado con el mismo. 




LAS REGLAS DEL 
JUEGO 



Antes de pasar a examinar el resto 
de la programación, vale la pena re- 
capitular las reglas del juego. 

El juego de las veintiuna se juega 
con un mazo ordinario de 52 cartas. 
Las cartas del 2 al 10 valen lo que in- 
dica su número; las figuras valen 10, y 
el as vale 1 u 1 1 según las necesidades 
del jugador. En este juego el ordena- 
dor se ocupa de ir llevando la cuenta 
de los totales, por lo que no tienes que 
hacerlo tú. 

Normalmente se juega con dinero, 
o con «piedras», pero en esta versión 
para ordenador hay que programarle 
para que cuente la puntuación en fi- 
chas imaginarias; con las otras fichas 
un programador poco escrupuloso po- 
dría hacer que la máquina dejara de 
ser honrada. 

El ordenador se programa para ac- 



tuar como banquero en todo momento 
y será siempre el encargado de repar- 
tir las cartas. 

Al principio del juego se barajan las 
cartas y se sacan dos de ellas ponién- 
dolas boca abajo. En la pantalla apa- 
recerá boca arriba la carta del juga- 
dor, aunque el programa ha sido di- 
señado para que la máquina no sepa 
qué carta es la que tiene el jugador. 

El jugador debe apostar ahora so- 
bre esta primera carta, antes de que se 
saque una nueva para cada uno. 

El objeto del juego es terminar con 
mejor puntuación que la banca, es de- 
cir con un valor total más elevado. 
Una mano que sume en total más de 
21 se pasa y pierde. Una mano con 
puntuación entre 16 y 21 solamente 
vence a la banca si la máquina tiene 
una mano más baja o se ha pasado 
de 21. 

Las veintiuna del jugador vencen a 
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todo lo que tenga la máquina excepto 
a otras veintiuna. 



EL PROGRAMA 



En primer lugar el ordenador se 
presenta y nos pregunta de qué can- 
tidad de dinero disponemos. Tras esto 
baraja las cartas y reparte una al ju- 
gador y otra para él mismo, nos indica 
la puntuación total hasta el momento 
y nos pide que hagamos una apuesta 
por esa carta. En la parte inferior de 
la pantalla, aparece un menú con op- 
ciones para apostar entre 100 y 10.000 
dólares. Presionando el número se- 
guido de un guión que aparece al lado 
de cada cifra elegiremos la apuesta. 
Una vez hecho esto, el programa nos 
mostrará la cantidad de dinero apos- 
tado que se encuentra sobre la mesa, 
el dinero que nos queda y la cantidad 
que le resta a la máquina. 
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CODIGO MAQUINA 
AL ALCANCE DE TODOS 



CODIGO MAQUINA 



INTRODUCCION AL LENGUAJE 



ENSAMBLADOR 



MNEMONICOS 



REGISTROS 



A partir de este número damos co- 
mienzo a una nueva sección dedicada a 
aprender lenguaje ensamblador de un 
modo sencillo. Para facilitar la com- 
prensión combinaremos explicaciones 
teóricas con ejemplos prácticos. Al 
mismo tiempo, iremos confeccionando 
un apasionante juego. 

Las diferencias entre los vocablos 
lenguaje binario, lenguaje hexadeci- 
mal (código máquina) y lenguaje en- 
samblador, se verán en la primera 
parte de la sección. ¿Para qué se uti- 
liza el lenguaje ensamblador en MSX? 



El lenguaje ensamblador es un len- 
guaje próximo al que habla el orde- 
nador, utilizándose cada vez que una 
aplicación (o juego) es irrealizable 
desde el BASIC o si es realizable la 
velocidad de ejecución es muy lenta. 
Su perfecto conocimiento permitirá al 
usuario ahorrar memoria aprove- 
chando al máximo las posibilidades de 
su ordenador. 

Los programas escritos en lenguaje 
ensamblador son de ejecución rápida 
pero extraordinariamente difíciles de 
escribir y depurar. La puesta a punto 
de un programa puede ser larga y la- 



boriosa. Así como en BASIC un sim- 
ple error de tecleado o de estructura 
produce un mensaje del tipo «Type 
Mismatch» o «Syntax Error in...», en 
lenguaje ensamblador se corre el pe- 
ligro de bloquear el ordenador com- 
pletamente, lo que significa en la ma- 
yoría de los casos resetear éste y per- 
der en su totalidad lo almacenado en 
memoria. 

No obstante, un programa mal es- 
crito en ensamblador no puede jamás 
destruir un ordenador — los construc- 
tores ya han tenido en cuenta ese de- 
talle — pero sí formatear o volatilizar 
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CódÜómáqujna 



el contenido del diskette si éste no está 
protegido contra escritura («Write 
Protect»). Es por ello imprescindible 
tener siempre a mano una copia de se- 
guridad para evitar la pérdida de 
tiempo que supone teclear de nuevo el 
programa. 



INTRODUCCIÓN AL LENGUAJE 
ENSAMBLADOR 

A continuación explicaremos unas 
nociones necesarias para comprender 
el lenguaje ensamblador. Podrán pa- 
recer un tanto repetitivas, o dema- 
siado fáciles para los ya iniciados en la 
verdadera programación, pero siem- 
pre es deseable y útil el repasarlas. 

Lenguaje máquina o código objeto 

Al nivel más elemental un ordena- 
dor, sea cual sea, sólo comprende im- 
pulsos eléctricos. Las instrucciones 
que se dan al microprocesador (el co- 
razón del ordenador) son una suce- 
sión, más o menos larga, de presencias 
y ausencias de impulsos eléctricos, 
algo parecido a lo que sucede en len- 
guaje morse. 

El lenguaje (código) máquina está 
constituido por una serie de órdenes 
determinadas que se traducen cada 
una por una sucesión determinada de 
impulsos eléctricos. Con el fin de re- 
presentar las diferentes sucesiones de 
impulsos eléctricos, los creadores de- 
cidieron utilizar las cifras 0 y 1 . Un im- 
pulso eléctrico se traduce por la no- 
tación 1 y su ausencia por la notación 
0. Esta forma de transcribir el código 
máquina a unos y ceros se denomina 
lenguaje binario. 

Sin embargo, este código es difícil 
de memorizar puesto que cada serie 
de impulsos representan una instruc- 
ción compuesta de ocho elementos 
(ocho estados de ausencia/presencia, 
deOy 1). 

¿Por qué ocho elementos? 

El ordenador MSX está construido 
alrededor de un microprocesador Z-80 
capaz de tratar ocho impulsos simul- 
táneamente. Por eso se dice que el Z- 
80 es un microprocesador de ocho 
bits. Sobre este tema os será de mucha 
utilidad la consulta de nuestra sección 
El Micro Z-80. 
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Para más facilidad, estos bloques de 
ocho bits, de ocho impulsos, se trans- 
criben en forma hexadecimal. Cada 
bloque de ocho bits se escinde en dos 
bloques de cuatro bits (nibbles) repre- 
sentados cada uno por un número 

comprendido entre 0 y F: 0,1 9, A, 

...F 

El cuadro 1 nos muestra los diferen- 
tes valores que puede tomar un bloque 
de 4 bits (cuadro 1 ). 

Así, la serie de ocho bits: 
10101110 

se escribirá: 

A E 

que es una notación más concisa, y por 
consecuencia, más fácil de retener. 
Esta notación hexadecimal es general- 
mente llamada lenguaje (código) má- 
quina (cuadro 2). 



Mnemónicos y lenguaje ensamblador 

Para representar las diferentes ins- 
trucciones y operaciones del micro- 
procesador, el lenguaje máquina es 
suficiente pero a su vez, de nuevo 
poco práctico para su uso. Incluso 
para un ojo experimentado pueden 
aparecer los programas como una su- 
cesión de números desprovista de sig- 
nificado, debido a que las instruccio- 
nes, los datos y las direcciones apare- 
cerán como cadenas de dígitos hexa- 
decimales unidos de uno a otro ex- 
tremo. 

La etapa siguiente consistirá en re- 
presentar las instrucciones del micro- 
procesador por medio de abreviaturas 
extraídas de palabras inglesas que re- 
presentan la función efectuada. Es de- 
cir, las abreviaturas que representan 
los códigos de operación de la má- 
quina son prácticamente autoexplica- 
tivas, volvemos a decir que en inglés, 
y que veremos seguidamente. Los da- 




tos y las direcciones son números 
exactamente iguales que los que figu- 
ran en el código máquina. 

A las instrucciones así designadas se 
les da el nombre de mnemónicos (de 
la raíz griega que significa memoria en 
el sentido de fácil de recordar). 

Con los códigos de operación escri- 
tos en forma de mnemónico, la se- 
cuencia ininterrumpida de números en 
código máquina queda fraccionada de 
forma que se puede ver lo que está su- 
cediendo. Así en el ejemplo siguiente 
veremos, en la columna de la iz- 
quierda, una suma en lenguaje hexa- 
decimal, y en la de la derecha su equi- 
valente en lenguaje ensamblador. 



3505 
3503 
80 



LDA.5 
LDB.3 
ADD.A.B 



Cuando se está ensamblando en có- 
digo máquina, lo único que se tiene 



que hacer es consultar los mnemónicos 
apropiados en la correspondiente ta- 
bla que figura en la guía del micropro- 
cesador que lleva el ordenador. Así, el 
MSX, lleva un microprocesador Z-80, 
como vimos anteriormente. La tabla 
dará el código numérico de operación. 
Sólo debemos acordarnos de permutar 
entre sí los bytes alto y bajo de todas 
las direcciones y datos que vengan en 
grupos de dos bytes. Esto se debe a 
que el ordenador almacena los nú- 
meros en formato byte bajo/byte alto. 
Aquí vemos cómo se introduciría en 
un registro, por ejemplo el LDHL, el 
contenido &H4000. Expresado en len- 
guaje máquina se convertiría en 21-00- 
40. Debemos evitar el error de escri- 
birlo en el mismo orden que en el en- 
samblador. 

Por el término ensamblador se en- 
tienden dos conceptos: el primero de- 
signa el lenguaje ensamblador, el 
mismo que hemos descrito con ante- 





rioridad. El segundo designa a un pro- 
grama, escrito asimismo en lenguaje 
ensamblador, que permite transfor- 
mar un programa escrito con la ayuda 
de mnemónicos (programa FUENTE) 
en un programa en lenguaje máquina 
(programa OBJETO). 

A continuación vamos a hablar de 
unos cuantos mnemónicos de lenguaje 
ensamblador para el microprocesador 
del MSX. Veamos el significado de al- 
gunos de ellos: 

LD significa cargar (LOAD); J sig- 
nifica saltar (JUMP); ADD, suman 
CALL, llamar a una subrutina; INC B, 
incrementar, añadir 1, el registro B\ 
RES, poner un bit a cero (resetear); 
JRNZ, salto relativo si el resultado no 
es cero; SET, poner un bit a uno;... 

Como podemos ver, estos mnemó- 
nicos, igual que los códigos hexadeci- 
males a los que representan, sirven 
para establecer el valor de un indica- 
dor y saltar hacia una u otra parte del 
programa. Éstas son las únicas cosas 
que pueden hacer las instrucciones en 
código máquina. 

La traducción de lenguaje ensam- 
blador a código máquina no es de- 
masiado fácil. Si observamos el con- 
junto de instrucciones en la guía del 
microprocesador, encontraremos que 
una sencilla instrucción como LDA 
(cargar el registro A o acumulador) 
puede tener varios códigos de opera- 
ción distintos (en este caso 16). Por 
ello debemos decidir cuál de estos có- 
digos de operación es el que nos in- 
teresa. El número total de mnemóni- 
cos es de 707. 

Los diferentes códigos de operación 
dependen del tipo de direcciona- 
miento que se utilice. Se llaman mo- 
dos de direccionamiento a las diferen- 
tes maneras en que el microprocesa- 
dor accede a la información. 

El modo de direccionamiento más 
sencillo del Z-80 es el direcciona- 
miento inmediato. Se expresa me- 
diante un número que sigue inmedia- 
tamente al mnemónico del lenguaje 
ensamblador. 

Por ejemplo: 

LD A,4 

;cargar el registro A con el nú- 
mero 4 

;en hexadecimal sería 3E 04 
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Decimal 


Binario 


Hexade 


0 


0000 


0 


1 


0001 


1 


2 


0010 


2 


3 


0011 


3 


4 


0100 


4 


5 


0101 


5 


6 


0110 


6 


7 


0111 


7 


8 


1000 


8 


9 


1001 


9 


10 


1010 


A 


11 


1011 


B 


12 


1100 


C 


13 


1101 


D 


14 


1110 


E 


15 


1111 


F 



LD A,(nn) 

;cargar el contenido de la direc- 
ción de 

;memoria (nn) en el registro A 
;3A (bytes de dirección de me- 
moria permutados). 

El direccionamiento directo tam- 
bién funciona en sentido contrario: 

LD (nn),A 

;cargar el contenido del registro 
A en la 

;dirección de memoria (nn);32 
(nn). 

Si se utiliza el direccionamiento in- 
directo, le decimos a la máquina 
dónde puede encontrar la dirección 
del dato que necesitamos: 

LD A,(HL) 

;cargar el registro A con el dato 
contenido 

;en la dirección que hay almace- 
nada en el 
;registro HL. 
LD (HL),A 

;cargar el contenido del registro 
A en la 

¿posición de memoria cuya direc- 
ción está 

almacenada en el registro HL. 

Existe un tipo especial de direccio- 
namiento indirecto que se llama direc- 
cionamiento indexado. En este caso se 



utiliza uno de los dos registros de ín- 
dice — IX e IY — y la dirección real 
que hay que utilizar en la operación se 
obtiene mediante un desplazamiento 
que se suma al contenido del registro 
de índice X o Y: 
LD A,(IX+d) 

Pueden transferirse datos de un re- 
gistro a otro (direccionamiento de re- 
gistro a registro): 

LD D,B 

;cargar el registro D con el con- 
tenido del 
; registro B. 

El direccionamiento relativo sólo se 
utiliza con las instrucciones de salto 
que son equivalentes a las instruccio- 
nes GOTO del BASIC; con ellas se le 
dice al ordenador cuántos bytes tiene 



que saltar hacia adelante o hacia atrás: 

JRNZJFC 

;en hexadecimal 20 FC. 

Este direccionamiento relativo se 
utiliza muy poco en el lenguaje ensam- 
blador. Lo normal es que los saltos se 
indiquen por medio de etiquetas. Se 
trata de palabras utilizadas como mar- 
cas para señalar el principio y el fin de 
los bucles. 

La marca se pone delante de la ins- 
trucción a la que hay que saltar y des- 
pués de la instrucción de salto: 

BUCLE LD A,n 
y posteriormente: 

DJNZ BUCLE 

;si el indicador de cero no está 
activado decrementar en 1 el re- 
gistro B y 

;saltar al lugar donde esté la eti- 
queta 

\bucle delante de una instrucción. 

Con esto finalizamos la primera 
parte dedicada al código máquina en 
MSX. Queremos recomendaros que 
leáis el artículo sobre la Estructura y 
arquitectura del Z-80 que publicamos 
en este mismo número. En esta sec- 
ción de Código Máquina continuare- 
mos hablando de las variables internas 
del sistema, las rutinas del BIOS, y pe- 
queños programas en lenguaje ensam- 
blador, que nos permitirán adentrar- 
nos en el fascinante mundo de la pro- 
gramación. 

También comenzaremos a progra- 
mar un magnífico juego. 



Para pasar un número de notación decimal a hexadecimal, podemos utilizar: 

PRINT HEXS (número decimal) 

Ejemplo: queremos pasar a hexadecimal el número decimal 32768: 

PRINT HEXS (32768)<RETURN> 
8000[=&H8000] 

Si queremos hacerlo a la inversa, haremos en el ejemplo anterior: 



n. 



decimal=16.°*( pn T' ,g ) 

* por ta der ' 



+ 16. 



*/ 2 ° dlQito \ 
* por la der ' 



16. 



O 

g 16 3./4« a .„to) 
^ aportad*.' 

o siendo la fórmula general de conversión de hexadecimal a decimal 



2* 



/3 B dl(jito\ 
*por la der ' 
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En INPUT estamos convencidos de que aún 
puedes hacer muchas más cosas con tu 
ordenador. Sin duda, muchos lectores estaréis 
utilizando vuestro micro para funciones de lo más 
variadas, en unos casos; pintorescas, en otros; 
mientras que algunos listillos habrán podido 
utilizarlo para resolver tareas complejas. Es lógico, 
modificando programas y variando los periféricos 
nuestro ordenador puede prestar sus servicios en 

infinidad de facetas. INPUT quiere que esas 
aplicaciones y utilidades a las que has conseguido 

dedicar tu ordenador, sean conocidas por todos 
sus lectores y por eso ha organizado el «Concurso 
de Aplicaciones y Utilidades», en el que puede 
participar cualquiera de nuestros lectores. 






UTILIDADES Y APLICACIONES: Si tu orde- 
nador controla la calefacción de tu casa, gobierna 
un robot, dirige un pequeño negocio, organiza la 
maqueta de tu tren eléctrico, o cualquier cosa in- 
teresante u original; envíanos información gráfica y 
listados de tus programas, grabados en un cassette, 
diskette o microdrive. 

Todo ello habrá de venir acompañado por un 
texto que aclare cuál es su objetivo, el modo de fun- 
cionamiento y una explicación del cometido que 
cumplen las distintas rutinas que lo componen. El 
texto se presentará en papel de tamaño folio y me- 
canografiado a dos espacios. No importa que la re- 
dacción no sea muy clara y cuidada; nuestro equipo 
de expertos se encargará de proporcionarle la forma 
más atractiva posible. 

UN JURADO propio decidirá en cada momento 
qué colaboraciones reúnen los requisitos adecuados 
para su publicación, y evaluará la cuantía del pre- 
mio en metálico al que se hagan acreedoras. 

No olvidéis indicar claramente para qué ordena- 
dor está preparado el material, así como vuestro 



nombre y dirección y, cuando sea posible, un telé- 
fono de contacto. Entre todos los trabajos recibidos 
durante los próximos tres meses SORTEARE- 
MOS: 

• Un premio de 50.000 ptas. 

• Un premio de 25.000 ptas. 

• Un premio de 10.000 ptas. 

en material microinformático a elegir por 
los afortunados. 

¡No os desaniméis!, por muy simples o complejas 
que puedan parecer vuestras ideas, todas están re- 
visadas con el máximo interés. 

INPUT MSX 

Aribau, 185. Planta 1. a 
08021 BARCELONA 

NOTA: INPUT no se responsabiliza de la devolución del ma- 
terial que no vaya acompañado por un sobre adecuado con el 
franqueo correspondiente. 
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Aplicaciones 



COMPOSICION 
DE ETIQUETAS 



Este sencillo programa te va a per- 
mitir componer el texto de las etiquetas 
de tus microfloppys. 

A primera vista quizá no te parezca 
demasiado interesante, ya que rotu- 
larlas a mano no te cuesta ningún es- 
fuerzo; pues bien, recuerda cuántas 
veces has malgastado etiquetas porque 
no tenías muy claro lo que querías es- 
cribir, o porque sencillamente no te 
cabía. 

Además de estas razones hay otro 
concepto a tener presente, como es el 
orden, argumento de peso en el aca- 
bado de los trabajos. 

Está claro que el tener una etiqueta 
bien formateada, no contribuirá a que 
un programa funcione mejor, pero sí 
va a dar un toque final a la presenta- 
ción del trabajo, además de simplificar 
la confección de la etiqueta. 

Al ejecutar el programa veremos en 
la pantalla el formato gráfico de una 
etiqueta, y un cursor que podemos 
desplazar en todas direcciones me- 
diante las teclas de movimiento de 
cursor. 

Con dicho cursor podemos situar- 
nos en cualquier línea de la etiqueta, 
no siendo necesario hacerlo ordena- 
damente. 

Una vez compuesto se trata de im- 
primir el texto en la impresora, donde 
previamente habremos colocado una 
etiqueta virgen. 

El programa carece de presenta- 
ción, dado que el planteamiento del 
mismo no es el de un juego o entre- 
tenimiento, sino que lo hemos consi- 
derado como un útil de trabajo. 

Su funcionamiento nos permitirá 
ver la etiqueta con el texto, antes de 
que exista realmente. 



DESCRIPCIÓN DEL PROGRAMA 

El primer paso es dibujar en la pan- 
talla una etiqueta con las característi- 



cas y proporciones reales. Este dibujo 
queda de la siguiente forma: fondo de 
la pantalla de color gris, etiqueta 
blanca y tinta de color azul. 

Para este desarrollo trabajamos con 
la SCREEN 6. 

Hemos definido los colores, alte- 
rando la paleta de colores de la má- 
quina, y adjudicándoles un valor nu- 
mérico que será al que haremos refe- 
rencia durante el programa. 

Estos serán: 0 para el negro, 1 para 
el azul, 2 para el gris y 3 para el 
blanco, que localizamos en las líneas 
250 a 280. 

Los comandos de la línea 290 defi- 
nen cómo es el papel, borde y tinta. 

Otra información para el microor- 
denador es definir en qué lugar de la 
pantalla debe dibujar, para ello se 
crean unas coordenadas, la x en la lí- 
nea 320 y la y en la línea 330. 

Una vez dimensionados el ancho, 
interlineado (espacio entre líneas), an- 
chura total, altura total, y coordena- 
das de inicio, se dibuja un cuadrado 
lleno de color blanco con el borde de 
color azul, mediante la instrucción 
LINE que encontramos en las líneas 
420 y 430. En la 450 entramos en un 
bucle encargado de dibujar las seis lí- 
neas donde va el texto, hasta llegar a 
la línea 480. 

En la línea 490, llenamos de color 
azul el pie o parte baja de la etiqueta. 
Seguidamente nos dirigimos a las lí- 
neas 510 a 530, que sitúan el cursor 
donde debe escribir «INDEX», es de- 
cir al margen superior izquierdo, pin- 
tando sobre fondo blanco con tinta 
azul. 

En los comandos de las líneas 550 a 
590 nos sucede algo muy parecido, 
aunque exactamente a la inversa, o 
sea, definimos el fondo azul y pinta- 
mos con tinta blanca. 

En la línea 560 ponemos el cursor 
en el origen donde queremos escribir 
WRITE PROTECT. 



En la 580 lo situamos para escribir 
WRITE ENABLE. 

A partir de ese momento, la eti- 
queta ya está dibujada. 

A continuación, inicializamos las 
seis líneas de texto con el rótulo Línea 
de texto disponible, indicando cuáles 
son las partes que podemos rellenar. 
Esto sucede en las líneas 620 a 690. 

Para poder situar el texto dentro de 
la etiqueta ha sido necesario definir 
dos variables, que forman parte del 
bucle principal que va de la línea 710 
a 880. Dichas variables son: la F para 
la fila, y la C para la columna, colo- 
cando el cursor en la parte superior iz- 
quierda de la pantalla con una posi- 
ción inicial F=l y C=l. 

De aquí pasa a la subrutina que co- 
mienza en la línea 1420 encargada de 
calcular las coordenadas gráficas que 
corresponden a esa fila y columna, en 
función de donde esté definida la eti- 
queta antes mencionada en las líneas 
320 y 330. Estas coordenadas x e y, 
pueden ser variadas por el usuario. 

Cada vez que modificamos un ca- 
rácter, esta subrutina comprobará su 
situación en la pantalla gráfica. Su 
existencia es justificable por una sen- 
cilla razón, es necesario calcular el va- 
lor de las coordenadas, ya que la eti- 
queta puede dibujarse en cualquier 
punto de la pantalla manteniendo 
siempre, esté donde esté, los valores 
F=l y C=l para el inicio del texto. 
Estos puntos no tendrían el mismo va- 
lor en la pantalla gráfica, debiendo 
calcular la posición de cada carácter 
entrado por el teclado. 

Otra cuestión sería el movimiento 
de cursor, para lo cual en la línea 740, 
y para facilitar la localización del cur- 
sor sobre el fondo blanco, escribire- 
mos con tinta azul sobre papel gris, 
quedando el cursor de color gris. 

Seguidamente escribimos el carác- 
ter correspondiente sobre el cursor, 
utilizando una matriz T$ que hemos 
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Aplicaciones 



■ 


UN PROGRAMA 


■ 


MAS VENTAJAS 




MUY SENCILLO 


■ 


DESCRIPCIÓN DEL PROGRAMA 


■ 


ETIQUETAS BIEN 


■ 


COLOR DE LA TINTA 




FORMATEADAS 




Y EL PAPEL 


■ 


MOVIMIENTO DEL CURSOR 


■ 


CONFECCIÓN DE LA ETIQUETA 



formateado en la línea 220, y que 
consta de seis cadenas de caracteres. 

En cada cadena se almacenará una 
línea de texto. 

En los comandos de la línea 750 
buscamos cuál es el carácter de la ca- 
dena T$ de la fila y columna donde se 
halla situado el cursor. 

La función dice cuál es el carácter 
que va en la celdilla, fila y columna. 

En las líneas 770 y 780 entramos en 
un pequeño bucle encargado de es- 
perar la entrada 4p algún carácter por 
el teclado. 

Si pulsamos la tecla de BO- 
RRADO, o la de ENTER, el orde- 
nador no obedece y vuelve a la línea 
770. Las teclas que sí obedecen al pro- 
grama son las de «control P», en 
donde llama a la subrutina de la línea 
1060 que da la orden de imprimir, for- 
zando a que dicho texto sea escrito en 
la impresora; y la tecla ESCAPE, con 
la que saltamos a la sentencia de la lí- 
nea 1480 que es «final de programa», 
donde la máquina recupera sus con- 
diciones normales restableciendo los 
colores originales, pasa a SCREEN 0 
con un ancho de 40 caracteres por lí- 
nea, deja el color de fondo y borde 
azul con tinta blanca, borra la pantalla 
y visualiza las teclas de función, fina- 
lizando el programa. 

Si lo que entra por el teclado son las 
teclas de movimiento de cursor, eje- 
cuta la función correspondiente. 

Si pulsamos la tecla de movimiento 
de cursor a la derecha, se llamará a la 
subrutina de la línea 1130, que rees- 
cribe el carácter existente sobre fondo 
blanco haciendo desaparecer el cur- 
sor. Incrementa el número de co- 
lumna si éste es inferior a 25, ya que 
es el número máximo de caracteres 
que caben en una línea. Vuelve a cal- 
cular nuevamente la posición en la 
pantalla gráfica, y altera la informa- 
ción reescribiendo sobre fondo gris el 
carácter ya existente. 



En la línea 1200 sucedería el mismo 
proceso, pero con desplazamiento del 
cursor a la izquierda hasta llegar a la 
columna 1 donde quedaría limitado. 

La subrutina de la línea 1270 nos 
permite desplazar el cursor hacia 
arriba hasta llegar a la fila l. 

Para terminar con las funciones de 
movimiento del cursor, vamos a la lí- 
nea 1340 donde lo desplazamos hacia 
abajo hasta llegar a la fila 6. 

Si el carácter entrado por la consola 
no es ninguna de las teclas de control 
ni cualquier otra ya citada, se tratará 
como un carácter imprimible, pasando 
a los comandos de la línea 1010 donde 
entra la información. 

Entonces sustituye el carácter an- 
terior por el introducido en la línea 



1030, y se dirige a la subrutina que 
aparece en la línea 1130, que hace 
avanzar el cursor. 

100 ' ************************ 
110 ' * 

120 ' * Programa para escribir * 
130 ' * las etiquetas de los 
140 1 * microfloppys. 
150 ' * 

160 ' * INPUT-MSX J. Garcia. * 
170 1 * 

180 ' ************************ 
190 1 

200 WIDTH 80 
210 SCREEN 6 
220 DIM T$(6) 

230 OPEN "grp:" FOR OUTPUT 
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470 LINE (XO,YO + OL)-(XO + LL, 

YO+OL) 
480 NEXT I 

490 PAINT (XO+l.YO+AL-l) 

500 'Rotulo INDEX 

510 PRESET (XO + 3.YO+2) 

520 COLOR ,3:'fondo blanco 

530 PRINT #1, "INDEX" 

540 'Otros rótulos 

550 COLOR 3,l:'tinta blanca en 

fondo azul 
560 PRESET (XO+ l.YO+AL-20) 
570 PRINT #1,CHR$(208);CHR$ 

(23);" WRITE PROTECT" 
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^pl¡cocio"®V. 







AS #1 350 

240 'Alteración de los colores 360 

250 COLOR = (0,0,0,0):'0 = Negro 370 

260 COLOR = (l,0,0,7):'l=Azul 380 

270 COLOR = (2,5,5,5): '2 = Gr¡s 390 

280 COLOR = (3,7,7 1 7):'3= 400 

Blanco 410 

290 COLOR 1,2,2 :'azul, gris, 420 

gris 

300 CLS 430 
310 'Definición de parámetros 

320 XO=101 :'x inicial 440 

330 YO = 30 :'y inicial 450 

340 LL=25*8+4 :'long linea 460 



'offset lineas 
'entre lineas 
'ancho total 
'alto total 
'x ini text 
'y ini text 



OL=0 
EL=2*10 
AN = 25*8+4 
AL=EL*8 
TX=XO+3 
TY=YO-8 
'Dibujo de la etiqueta 
LINE (XO,YO)-(XO+AN, 
YO+AL),3,BF 
LINE (XO,YO)-(XO+AN, 
YO+AL),l,B 
'Rayado interior 
FOR 1 = 1 TO 6 
OL=OL+EL 
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580 PRESET (X0+1.Y0+AL 
-10) 

590 PRINT #1,CHR$(208);CHR$ 
(23);" WRITE ENABLE " 

600 COLOR l,3:'tinta azul, fondo 
blanco 

610 'Inicializacion de texto 

620 FOR 1 = 1 TO 6 

630 T$(l) = "Linea de texto 

disponible" 
640 NEXT I 
650 C=l 

660 FOR F=l TO 6 
670 GOSUB 1420 



680 PRINT #1,T$(F); 
690 NEXT F 
700 ' 

710 'gestión de entrada de datos 

720 ' 

730 F=l:C=l:GOSUB 1420 
740 COLOR l,2:'tinta azul en 

papel gris 
750 PRINT #1,MID$(T$(F),C, 1); 
760 GOSUB 1420 
770 A$ = INKEY$ 
780 IF A$ = "" GOTO 770 
790 IF A$ = CHR$(8) GOTO 

770:'rub 
800 IF A$ = CHR$(13) GOTO 

770:'ret 
810 IF A$ = CHR$(16) THEN 

GOSUB 1060:GOTO 770 :' 

impr 

820 IF A$ = CHR$(27) GOTO 

1480:'esc 
830 IF A$ = CHR$(28) THEN 

GOSUB 1130:GOTO 770: 

'der 

840 IF A$ = CHR$(29) THEN 
GOSUB 1200:GOTO 770 
:'izq 

850 IF A$ = CHR$(30) THEN 
GOSUB 1270:GOTO 770 

:'SUb 

860 IF A$ = CHR$(31) THEN 
GOSUB 1340:GOTO 770 
:'baj 

870 GOSUB 1010 :'entrar 

carácter 
880 GOTO 770 :'repite bucle 
890 'restaura la información 

900 ' 

910 COLOR 1,3 

920 PRINT #1,MID$(T$(F),C,1); 
930 GOSUB 1420 
940 RETURN 
950 'altera el texto 

960 ' 

970 COLOR 1,2 

980 PRINT #1,MID$(T$(F),C, 1); 

990 GOSUB 1420 

1000 RETURN 

1010 'entrar nuevo texto 

1020 ' 

1030 MID$(T$(F),C,1) = A$ 
1040 GOSUB 1130 



1050 RETURN 

1060 'imprimir todo el texto 

1070 • 

1080 FOR 1 = 1 TO 6 

1090 LPRINTT$(I) 

1100 LPRINT 

1110 NEXT I 

1120 RETURN 

1 130 'avanzar el cursor 

1140 ' 

1150 GOSUB 890 

1160 IF C<25 THEN C=C+1 

1170 GOSUB 1420 

1180 GOSUB 950 

1190 RETURN 

1200 'retroceder el cursor 

1210 ' 

1220 GOSUB 890 

1230 IF C>1 THEN C=C-1 

1240 GOSUB 1420 

1250 GOSUB 950 

1260 RETURN 

1270 'subir el cursor 

1280 ' 

1290 GOSUB 890 

1300 IF F>1 THEN F=F-1 

1310 GOSUB 1420 

1320 GOSUB 950 

1330 RETURN 

1340 'bajar el cursor 

1350 ' 

1360 GOSUB 890 

1370 IF F<6 THEN F=F+1 

1380 GOSUB 1420 

1390 GOSUB 950 

1400 RETURN 

1410 ' 

1420 'calculo de x,y gráfica 
1430 • 

1440 X=TX+(8*(C-D) 
1450 Y=TY+(EL*F) 
1460 PRESET (X,Y) 
1470 RETURN 
1480 'fin de programa 

1490 ' 

1500 COLOR = NEW 
1510 SCREEN 0 
1520 WIDTH 40 
1530 COLOR 15,4,4 
1540 CLS 
1550 KEYON 
1560 END 
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TU PRIMER 
FRONTON 



Muchos de los lectores de INPUT de- 
béis añorar aquellos primeros videojue- 
gos frente a los que se pasaban largos ra- 
tos jugando a tenis, ping-pong... Este 
sencillo programa que ahora os presen- 
tamos os permitirá jugar una amena 
partida de frontón contra vuestro or- 
denador. 

En primer lugar os vamos a explicar 
el funcionamiento del programa. Éste 
se inicia en la línea 10, con la que se 
abre un fichero, gracias al cual podre- 
mos escribir caracteres en una pantalla 
de gráficos. La línea siguiente, la 20, 
define algunas variables como las de 
puntuación o número de bolas, etc.. 
En la línea 30 se inicializa la pantalla 
y es desde ella que se nos pregunta el 
nivel de juego, guardando la respuesta 
en l<f variable N. 

En la línea 80 se pregunta por la ve- 
locidad de nuestra raqueta y la guarda 
en V. La línea 100 determina la velo- 
cidad dependiendo del nivel. La línea 
1 10 prepara el color de la pantalla. La 
120 es la que autoriza las interrupcio- 
nes por choque de sprites. 

A continuación, la línea 130 selec- 
ciona el modo de gráficos de alta re- 
solución, mediante el uso de sprites 
ampliados. La línea 140 utiliza una ru- 
tina del bios encargada de desactivar 
la pantalla. Desde la línea 150 hasta la 
180 se imprimen, aleatoriamente, los 
espectadores. Mientras que desde la 
línea 190 a la 230 se dibuja la pista, así 
como los indicadores de bolas y de 
puntuación. 

La línea 240 utiliza la rutina del 
bios, que complementa a la utilizada 
en la línea 140, activando la pantalla. 
Desde la línea 250 a la 330 se diseñan 
los sprites de la bola y de la paleta. Las 
líneas 340 y 350 eligen la dirección 
aleatoria de salida de la bola. La línea 
360 define la posición inicial de la 
bola. La 370 define la posición de 
la paleta, utilizando, según el caso, 



las rutinas entre las líneas 430 a 620. 

La línea 630 visualiza la bola en la 
pantalla y desde la 640 hasta la 690 el 
ordenador recibe datos desde el joys- 
tick y del teclado, a la vez que se en- 
carga de que la paleta no se salga de 
la pista. La línea 700 visualiza la pa- 
leta. 

Entre las líneas 710 a 740 se com- 
prueba si la bola ha chocado con al- 
guna de las paredes o ha sido inter- 
ceptada por nuestra paleta, en cuyo 
caso el ordenador manda el control a 
la rutina correspondiente situada en- 
tre las líneas 760 y 1010. Esta rutina se 
encarga de hacer rebotar la bola. Si ha 
sido un golpe nuestro con la paleta el 
que ha hecho rebotar la bola la rutina 
anterior es llamada desde la línea 650. 
Desde la línea 1110 hasta la 1200 se 
programa la despedida así como la op- 
ción de volver a jugar o retirarte. 

Al ser un programa en Basic, de 
lenta velocidad de ejecución, una vez 
hayas introducido la orden de ejecu- 
ción y los datos sobre el nivel de difi- 
cultad y la velocidad de la paleta, el 
ordenador dejará durante unos segun- 
dos la pantalla desconectada antes de 
proseguir el juego. 

Adelante y a ganar. 

10 0PEN"GRP:" AS #1 
20 G=1:H = 1:NB = 3:PT=0 
30 CLS:KEY 0FF:C0L0R 3,1, 

1:INPUT "NIVELÜ- 

7)";N 

40 IF N<1 OR N>7 THEN GOTO 
30 

50 IF N<=3 THEN L=2 
60 N = >4 AND N<6 THEN L = 4 
70 IF N = 7 OR N = 6 THEN L=6 
80 INPUT "VELOCIDAD DE LA 

PALETA:(1-4)";V 
90 IF V<1 OR V>4 THEN GOTO 

80 

100 Z1 = N/2:Z2 = N 
110 COLOR 3,1,1 



■ 


UNA PARTIDA 


DE FRONTON 


■ 


UN DIFICIL ADVERSARIO: 


TU ORDENADOR 


■ 


ANALISIS DEL PROGRAMA 



120 SPRITE ON 

130 SCREEN 2,3 

140 DEF USR=&H41:J = USR(0) 

150 FOR S=l TO 160 

160 PSET(G.H), 

1:HH = INT(RND(1)*2)+1:IF 
HH=1 THEN PRINT #1, 
"[GRAF+{]" ELSE PRINT 
#l,"[GRAF+SHIFI + {]" 

170 G = G + 8:IF G = >250 THEN 
H = H + 7:G=1 

180 NEXT S 

190 LINE (40,40)-(240,140),3, 
BF 

200 PSET (10,175), 1 
210 PRINT #1,"PUNTUACI0N: 
0" 

220 PSET (150,175), 1 

230 PRINT #1,"B0LAS:3" 

240 DEF USR=&H44:J = USR(0) 

250 A$ = CHR$(&B1) 

260 SPRITE$(0) = A$ 

270 B1$=CHR$(&B11) 

280 B2$=CHR$(&B00) 

290 B3$=CHR$(&B11) 

300 B4$ = CHR$(&B00) 

310 B5$=CHR$(&B11) 

320 B$ = B1$ + B2$+B3$ + B4$ 

+ B5$ 
330 SPRITE$(1) = B$ 
340 HH = INT(RND(1)*2) + 1 
350 IF HH = 1 THEN D$="D3" 

ELSE D$ = "D4" 
360 X = 221:Y = 70 
370 A = 70:B = 80 
380 REM DIRECCIONES 
390 IF D$ = "D1"THEN GOTO 

430 

400 IF D$ = "D2**THEN GOTO 
480 

410 IF D$ = "D3"THEN GOTO 
530 

420 IF D$="D4"THEN GOTO 

580 
430 REM DI 



48 INPUT 



440 X=X+Z2 
450 Y=Y-Z1 
460 GOTO 630 

470 REM 

480 REM D2 
490 X=X+Z2 
500 Y=Y+Z1 
510 GOTO 630 

520 REM 

530 REM D3 
540 X=X-Z2 
550 Y=Y-Z1 
560 GOTO 630 

570 REM 

580 REM D4 
590 X=X-Z2 
600 Y=Y+Z1 
610 GOTO 630 

620 REM 

630 PUT SPRITE 0,(X,Y),1,0 
640 D = STICK(0) 
650 ON SPRITE GOSUB 1020 
660 IF D=l THEN B = B-V 
670 IF D = 5 THEN B = B+V 
680 IF B = <40 THEN B = 40 
690 IF B = >130 THEN B = 130 
700 PUT SPRITE 1,(70,B), 15, 1 
710 IF X=<60 THEN GOTO 760 
720 IF X = >225 THEN GOTO 
900 

730 IF Y=<40 THEN GOTO 840 
740 IF Y=>140 THEN GOTO 
960 

750 GOTO 380 
760 PLAY "140vl5o6fo3c" 
NB=NB- 1 

LINE (195,170)-(255, 
185U.BF 
PSET (195,175),1 
PRINT #1,NB 

IF NB<>0 THEN GOTO 830 
GOTO 1110 
830 GOTO 340 

840 ' RUTINA ANTICHOQUE B 
PLAY "L63V1505GC" 
IF D$ = "D3"THEN D$ = "D4" 
IF D$ = "D1"THEN D$ = "D2" 
Y=Y + 2 
GOTO 630 

' RUTINA ANTICHOQUE C 
PLAY "L63V1505GC" 
IF D$="D1"THEN D$ = "D3" 



770 
780 

790 
800 
810 
820 



850 
860 
870 
880 
890 
900 
910 
920 



930 IF D$ = "D2"THEN D$ = "D4' 
940 X=X-2 
950 GOTO 630 

960 ' RUTINA ANTICHOQUE D 
970 PLAY "L63V1505GC" 
980 IF D$ = "D4"THEN 

D$="D3" 
990 IF D$="D2"THEN 

D$="D1" 
1000 Y=Y-2 
1010 GOTO 630 
1020 PLAY 

"V15L6304C05 



C06C07C" 
1040 IF D$ = "D4" THEN 

D$="D2" 
1050 PT=PT+5*N 
1060 LINE(95,170)-(150,185), 

1,BF 

1070 PSET (95,175),1:PRINT 

#1,PT 
1080 SPRITE ON 
1090 PUT SPRITE 0, 

(X + L,Y),0,0 
1100 GOTO 380 
1110 SCREEN 0,0,0 
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PON COLOR EN TUS 
PROGRAMAS 



El programa que os presentamos a 
continuación os permitirá dibujar en la 
pantalla de vuestro ordenador hasta casi 
4.000 puntos, utilizando los dieciséis co- 
lores. Pero la mayor ventaja que ofrece 
el programa es la de poder grabar el di- 
bujo en cinta. 

Ll programa está estructurado en 
tres partes claramente definidas. La 
primera, por orden de programación, 
es la presentación que, en realidad, es 
la menos importante de las tres. Se ex- 
tiende entre las líneas 10 a 330. 

A partir de aquí comienza el pro- 
grama en sí. Desde las líneas 340 a la 
410 se inicializa la pantalla y se defi- 
nen algunas variables. A partir de la 
420. hasta la línea 500, se extiende el 
primer menú, que es quien nos mues- 
tra la posibilidad de manejar la paleta 
mediante el cursor o alternativamente 
con el joystiek, para lo que la variable 
J recoge el valor entrado en la línea 
500. Este valor será el que utilice más 
tarde la sentencia STICK. 

La línea 510 nos abre un archivo con 
el que podemos escribir caracteres en 
la pantalla de gráficos. El segundo 
menú se desarrolla entre las líneas 520 
y 650 y es el encargado de mostrarnos 
las posibilidades de esta paleta gráfica: 
borrar la pantalla, subir y bajar la 
pluma, cambiar colores, etc.. 

Desde las líneas 670 hasta la 960 se 
dibujan la paleta y el panel de colores. 
A partir de la instrucción 970 se crea y 
define un sprite de 8*8, que será quien 
más tarde representará la pluma. La lí- 
nea 1060 se encargará de situar la pluma 
en el centro de la pantalla, cuyo movi- 
miento se define entre las líneas 1070 a 
1180. Las cuatro siguientes limitan el 
movimiento de la pluma para que no 
salga de la pantalla. 

Desde este punto y hasta la línea 
1280, el ordenador queda a la espera 
de recibir instrucciones desde el te- 
clado. La línea 1290 se encarga de que 



los datos de cada punto dibujado, que 
se graban entre las posiciones de me- 
moria 49152 y 61000, no rebasen esta 
última a fin de que no se solapen con 
el área del sistema. 

Las líneas 1300 a 1320 se encargan 
de la visualización de la pluma y de los 
puntos que conforman el dibujo. Las 
líneas 1330 y 1340 comprueban que 
ese punto no ha sido dibujado antes, 
para no archivarlo, y de guardar los 
datos cuando se trata de un nuevo 
punto. La línea 1360 devuelve el con- 
trol a 1090, para que siga leyendo los 
datos del teclado. 

En 1370 se inicia la rutina de cambio 
de color, situando la pluma en el panel 
de colores. Entre 1490 y 1510 espera 
a que pulsemos N o P, para elegir un 
nuevo color o para volver al panel. 
1520 visualiza la pluma y 1530 repite 
todo el proceso de cambio de color. 

La rutina de retorno al dibujo, de- 
finida entre las líneas 1560 y 1610, se 
encarga de repetir lo dibujado hasta el 
momento y representarlo en la pan- 
talla al abandonar el menú de aplica- 
ciones. Para ello extrae los valores po- 
keados anteriormente a partir de la 
posición de memoria 49152 y los uti- 
liza en una sentencia PSET. La línea 
1610 retorna el control a 680. 

A partir de la línea 1620 se extiende 
el menú de grabación, con el que po- 
demos elegir entre grabar, extraer del 
cassette o volver al dibujo. 

La rutina de grabación empieza en 
1680, donde graba los datos de cada 
punto en un fichero llamado GRAF. 
Al terminar, el ordenador muestra dos 
opciones: anular el dibujo o volver a 
éste. En 1830 se inicia la rutina de ex- 
tracción en la que se abre el mismo fi- 
chero GRAF y se recogen los datos 
sobre cada punto. Al terminar obtie- 
nes de nuevo dos opciones, repetir la 
operación o presentar en pantalla el 
dibujo recogido. 

Una vez hayan aparecido en pan- 



talla la paleta gráfica y el panel de co- 
lores si manejáis el programa desde el 
teclado, debéis apretar las siguientes 
teclas: con W la pluma tocará el papel 
y podréis dibujar, con O la pluma se 
elevará, con B borraréis la pantalla, si 
eliges G podrás cambiar de color (para 
ello debes situar la pluma sobre el co- 
lor elegido y apretar N), P para volver 
al papel y, finalmente, G para grabar 
el dibujo. 

La paleta gráfica se debe usar con 
mayúsculas. 

Después de trabajar con este pro- 
grama ya podréis desarrollar libre- 
mente vuestras inclinaciones pictóri- 
cas, bien dibujando o construyendo 
paisa jes y portadas para vuestros jue- 
gos. 

10 F=60 

20 COLOR 3, 1, 1 

30 SCREEN 2, 2, 0 

40 0PEN "GR P: " AS #1 

50 REM PRESENTACION 

60 F0R T=70 T0 100 

70 PSET (F, T), 1 

80 PRINT #1, "PALETA 

GRAFICA" 
90 F=F+1 

100 COLOR „INT(RND(1) * 

15)+1 
110 NEXTT 

120 PSET (F + 5, T + 6), 3 
130 PRINT #1, "PALETA 

GRAFICA" 
140 PSET (F + 6, T + 7), 1 
150 PRINT #1, "PALETA 

GRAFICA" 
160 PSET (30, 140), 1 
170 PRINT #1, "INPUT" 
180 PSET (31, 141), 1 
190 PRINT #1, "INPUT" 
200 COLOR 8, 1, 1 
210 F=140 

220 F0R T=100 T0 110 
230 PSET (T, F), 1 
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• a f 




r^plkacioncs 







■ 


TRES PARTES 


■ 


EL DIBUJO 


■ 


LA GRABACION 


■ 


COMO MANEJAR 


LA PALETA 



240 


PRINT #1, "M.S.X." 


340 MAXFILES = 2 


420 


REM 


250 


F=F + 1 


350 H = 49152! 


430 


PRINT "MENU DE 


260 


NEXT T 


360 REM PALETA GRAFICA 




CONTROLES" 


270 


PSET (T + 4, F + 4), 1 


370 REM 


440 


PRINT:PRINT:PRINT 


280 


PRINT #1, "M.S.X." 


380 REM MENU DE CONTROL 


450 


PRINT "(0) CONTROL POR 


290 


PSET (T+5, F + 5), 1 


390 CLS:KEY OFF:COLOR 3, 1, 




CURSOR" 


300 


PRINT #1, "M.S.X." 


LSCREEN 0,0,0:WIDTH 


460 


PRINT "(1) CONTROL POR 


310 


CLOSE #1 


35:CA=15:PL=1 




JOYSTICK(l);; 


320 


IF INKEY$<> " " THEN 


400 POKE H, 0:POKE H + l, 


470 


PRINT "(2) CONTROL POR 




GOTO 340 


0:POKE H + 2, 0 




JOYSTICK(2)" 


330 


GOTO 320 


410 H=H+3 


480 


1 1 
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490 PRINT:PRINT:PRINT:PRINT 
500 INPUT "Escoja la opción 

deseada."; J 
510 OPEN "GRP:" AS #1 
520 CLS 

530 PRINT "DIRECTORIO DE 

APLICACIONES" 
540 PRINT:PRINT:PRINT 
550 PRINT "(B) Borrado de 

pantalla" 
560 PRINT "(Q) Sube la pluma" 
570 PRINT "(W) Baja la pluma" 
580 PRINT "(C) Cambia colores" 
590 PRINT " — N— Elige 

nuevo color" 
600 PRINT " — P— Retorna 

al dibujo" 
610 PRINT "(R) Retorna a este 

menú" 

620 PRINT "(G) l/O Dibujo a 
cinta" 

630 PRINT:PRINT:PRINT 

640 PRINT " " 

650 IF INKEY$ <> " " THEN 

GOTO 1560 
660 GOTO 650 
670 SCREEN 2, 2, 0 
680 REM RETORNO 
690 COLOR 8 

700 LINE (10, 15)-(200, 185), 
10, B 

710 PSET (10, 7), 1 

720 PRINT #1, «Paleta Gráfica" 

730 PSET (11, 7), 1 

740 PRINT #1, "Paleta Gráfica" 

750 COLOR 3 

760 LINE (210, 15) - (220, 25), 



2, BF 




770 LINE (230, 15) - 


(240, 25), 


3, BF 




780 LINE (210, 35) - 


(220, 45), 


4, BF 




790 LINE (230, 35) - 


(240, 45), 


5, BF 




800 LINE (210, 55) - 


(220, 65), 


6, BF 




810 LINE (230, 55) - 


(240, 65), 


7, BF 




820 LINE (210, 75) - 


(220, 85), 


8, BF 




830 LINE (230, 75) - 


(240, 85), 


9, BF 




840 LINE (210, 95) - 


(220, 


105), 10, BF 




850 LINE (230, 95) - 


(240, 


105), 11, BF 




860 LINE (210, 115) 


-(220, 


125), 12, BF 




870 LINE (230, 115) 


- (240, 


125), 13, BF 




880 LINE (210, 135) 


- (220, 


145), 14, BF 




890 LINE (230, 135) 


- (240, 


145), 15, BF 




900 LINE (210, 155) 


- (220, 


165), 15, B 




910 LINE (205, 10) - 


(250, 


170), 10, B 




920 PSET (200 , 2), 1 


930 PRINT #1, "Colores" 


940 PSET (201, 2), 1 




950 PRINT #1, "Colores" 


960 LINE (10, 186)- 


(200, 


189), CA, BF 





970 A1$=CHR$(&O0B00010000) 
980 A2$=CHR$(&O0B00010000) 
990 A3$=CHR$(&O0B00000000) 
1000 A4$=CHR$(&O0B1 10001 10) 
1010 A5$ = CHR$(&O0B00000000) 
1020 A6$=CHR$(&O0B00010000) 
1030 A7$=CHR$(&O0B00010000) 
1040 A$ = A1$ + A2$ + A3$ + A4$ 

+A5$+A6$+A7$ 
1050 SPRITE$(0)=A$ 
1060 X=100 :Y=89 
1070 REM PLUMA 
1080 D = STICK(J) 
1090 K$=INKEY$ 
1100 IF D=l THEN Y = Y-1 
1110 IF D = 2 THEN 

X=X+1:Y = Y-1 
1120 IF D = 3 THEN X=X+1 
1130 IF D = 4 THEN 

X = X+1:Y=Y+1 
1140 IF D = 5 THEN Y=Y+1 
1150 IF D = 6 THEN X=X- 

1:Y=Y+1 
1160 IF D = 7 THEN X=X-1 
1170 IF D=8 THEN X=X- 

1:Y = Y-1 

1180 IF D = 0 THEN X=X:Y=Y 
1190 IF X=>196 THEN X=196 
1200 IF X=<8 THEN X=8 
1210 IF Y=>180 THEN Y=180 
1220 IF Y = <12 THEN Y=12 
1230 IF K$ = "C" THEN GOTO 
1370 

1240 IF K$="B" THEN LINE 
(11, 16)-(199, 184), 1, 
BF:H = 49155! 
1250 IF K$="Q" THEN PL=1 
1260 IF K$ = "W" THEN PL=0 
1270 IF K$ = "R" THEN GOTO 
1540 

1280 IF K$ = "G" THEN GOTO 
1620 

1290 IF H = >61000! THEN 

CIRCLE (180, 3), 5, 8,,, 

1.4:PAINT (180, 3), 

8:G0T0 1360 
1300 PUT SPRITE 0, (X, Y), 15, 

0 

1310 IF PL=1 THEN GOTO 1360 
1320 PSET (X + 3, Y+4), CA 
1330 IF PEEK(H-3)=X+3 AND 
PEEK(H-2)=Y+4 AND 







PEEK(H-1) = CA THEN 




CA, BF 




GOTO 1360 


1510 


IF K$ = "P" THEN GOTO 


1340 


POKE H, X+3:POKE H + l, 




1060 




Y+4:P0KE H + 2, CA 


1520 


PUT SPRITE 0, (X, Y), 15, 


1350 


H = H + 3 




0 


1360 


GOTO 1080 


1530 


GOTO 1390 


1370 


REM RUTINA DE CAMBIO 


1540 


REM RUTINA DE 




DE COLOR 




RETORNO AL MENU 


1380 


X=225:Y = 20 


1550 


SCREEN 0:CLS:GOTO 520 


1390 


D=STICK(J) 


1560 


REM RUTINA DE 


1400 


K$ = INKEY$ 




REGRESO AL DIBUJO 


1410 


IF D=l THEN Y=Y-1 


1570 


SCREEN 2, 2, 0 


1420 


IF D = 3 THEN X = X+1 


1580 


FOR WQ=49155! TO H-l 


1430 


IF D = 5 THEN Y = Y+1 




STEP 3 


1440 


IF D=7 THEN X=X-1 


1590 


PSET (PEEK(WQ), 


1450 


IF X=>246 THEN X = 246 




PEEK(WQ+1)), 


1460 


IF X=<203 THEN X = 203 




PEEK(WQ + 2) 


1470 


IF Y=<7 THEN Y=7 


1600 


NEXT WQ 


1480 


IF Y = >165 THEN Y=165 


1610 


GOTO 680 


1490 


IF K$="N" THEN 


1620 


CLS:SCREEN 0, 0, 0:REM 




CA=POINT (X+3, Y+4) 




l/O CASETE 


1500 


IF K$="N" THEN LINE 


1630 


INPUT "(l)GRABAR 




(10, 186)-(200 , 189), 




DIBUJ0(2) EXTRAER 



DIBUJ0(3) VOLVER AL 

DIBUJO"; L 
1640 IF L=l THEN GOTO 1680 
1650 IF L=2 THEN GOTO 1830 
1660 IF L=3 THEN GOTO 1560 
1670 GOTO 1630 
1680 REM RUTINA DE 

GRABACION 
1690 OPEN "CAS:GRAF" FOR 

OUTPUT AS #2 
1700 PRINT #2, H 
1710 FOR WQ=49152! TO H-l 
1720 PRINT #2, PEEK(WQ) 
1730 NEXT WQ 
1740 CLOSE #2 
1750 PRINT:PRINT 
1760 PRINT "La grabación ha 

terminado" 
1770 PRINT "quieres anular el 

dibujo-1-" 
1780 PRINT "o prefieres volver al 

dibujo-2-" 
1790 INPUT YH 
1800 IF YH = 1 THEN 

H = 49155!:G0T0 520 
1810 IF YH = 2 THEN GOTO 

1560 
1820 GOTO 1750 
1830 CLS:REM RUTINA DE 

EXTRACCION 
1840 OPEN "CAS:GRAF" FOR 

INPUT AS #2 
1850 INPUT #2, H 
1860 FOR WQ=49152! TO H-l 
1870 INPUT #2, A 
1880 POKE WQ, A 
1890 NEXT WQ 
1900 CLOSE #2 
1910 PRINT "La extracción ha 

terminado" 
1920 PRINT "quieres realizar 

otra extraccion-1-" 
1930 PRINT "o prefieres 

representar en pantalla-2- 

1940 INPUT RE 
1950 IF RE=1 THEN GOTO 
1830 

1960 IF RE = 2 THEN GOTO 

1560 
1970 GOTO 1910 
1980 END 
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Participa j 



EL BOSQUE MALDITO 

Este mes en la sección de PARTICIPA os presentamos un programa que, a despecho de su sencillez y 
reducida extensión, configura un juego electrizante que obliga al jugador a mantener sus nervios en 

tensión de principio a fin. Será muy difícil que consigas salvarte de la presión del fantasma o que no 
te estrelles contra los macizos muros que cierran el bosque, en un intento frustrado por huir de las 
fauces del fantasmagórico poblador del bosque. Si pisas tus propias huellas también perecerás. 

Tus movimientos por el bosque se dirigen muy fácilmente desde las teclas de movimiento del cursor. 

20 » ********************************* 

20 '** .BOSQUE MALDITO/ POR A. F.B. * 

30 ' ********************************* 

40 DIMSC(10),N$(10):GOSUB490 
50 -***** INICIACION ******** 

60 COLOR 1,10,12:SCREEN1,2:KEYOFF:WIDTH 32:Z=8:SC=0:LF = 2:Q=0:W = 6144 + 32* 

18 + 20:R=100:T=100:ONSPRITEGOSUB420:SPRITEON:X=160:Y=143:ONSTOPGOSUB450: 
STOPON:F = 20:G = 80:ONINTERVAL = ZGOSUB380:L=4:C = 4 

70 ****** DEF. SPRITES **** 

80 RESTORE80:FORA=14336TO14336+32*4-l:READA$:VPOKEA,VAL 

("&H" + A$):NEXT:DATA18, 18, 3C3C,7E,7E,FF,FF f 0 f 0, 0,0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 0,0,0,0, 
0,0,0,0, C0,F0,FC,FF,FF 1 FC,F0,C0 1 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,FF,FF, 
7E,7E,3C,3C, 18,18 

90 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0,0, 0,0, 0,0, 3, F,3F,FF,FF,3F,F, 3,0,0,0, 0,0,0, 

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
100 DATA7,7F,6F,5F,7D,F5,E5,D5,D0,C0,C0,68,6A,2A,1A,7,E0,FE,F6,FA,BE,AF,A7,AB,B,3,3, 

16,56,54,58,E0:RESTORE100:FORA=0TO31:READA$:B$ = B$ + CHR$(VAL("&H"+A$)): 

NEXT:SPRITE$(4) = B$ 

110 B$ = "":DATA1,1,1,21,12,6,15,FA,38,6,E,11,21,1,1,1,0,0,80,80,84,C8,30,AE,9F,98,70, 
E,9,88,0,0,0:RESTORE120:FORA = 0TO31:READA$:B$=B$ + CHR$(VAL("&H" + A$)): 
NEXT:SPRITE$(6) = B$ 

120 B$ = "":DATA1,1,1,21,12,6,15,FA,38,6,E,11,21,1,1,1,0,0,80,80,84,C8,30,AE,9F,98,70, 
E,9,88,0,0,0:RESTORE120:FORA = 0TO31:READA$:B$=B$ + CHR$(VAL("&H" + A$)): 
NEXT:SPRITE$(6) = B$ 

130 X=160:Y=143:W = 6144 + 32*18 + 20:R = 100:T=100:F=20:G = 80:SPRITEON 

140 '***** IMPRIMIR PANTALLA *** 

150 LOCATE 0,0:PRINT"PUNTOS:":LOCATE12,0:PRINT"VIDAS:";SPC(3);"TIEMPO" ;: LOCATE0, 
1:PRINTSTRING$(32,"IV");:FORA = 2TO21:LOCATE0,A:PRINT"^";SPC(30);"IV";:NEXT: 
LOCATE0,22:PRINTSTRING$(32,"W");SPC(6) ; "POR A. F.B. 1986";:BEEP 

160 *** INICIAR SONIDO ******* 

170 K = TIME:FORA = 0TO30:LOCATERND(-TIME)*30+l,RND(K)*18 + 2: 

PRINT"$":NEXT:TIME = 0:INTERVALON:SOUND8,16:SOUND9,14:SOUND10,14:SOUND13,0: 

SOUNDll,68:SOUND12,8:SOUND7,&B 10001 :INTERVALON:GOSUB250 
180 COLORI, 10, 12:VPOKEBASE(6) + 4,&HB2:VPOKEBASE(6) + 26,&HlE 
190 IFZ>4THENK = TIME:FORA = 0TO20:LOCATERND(-TIME)*30+l,RND(K)*18 + 2: 

PRINT"F":NEXT:TIME=0:LOCATE0,1:PRINT"IV"; 
200 PUTSPRITEl,(X,Y),15,Q:SOUND4,X:SOUND2,Y:PUTSPRITE2,(F,G),C,4: 

GOSUB270:INTERVALON:SOUND6,(F+G)/2:IFTIME/50>30THENELSE200 
210 INTERVALOFF : BEEP:PLAY"S0M10000L8O5FRERL2D","S0M10000L8O5CRCRO4L2B", 
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"S0M10000L8O4ARGRL2G":LOCATE6,10:PRINT" FASESUPERADA "¡ 

:FORA = 0TO1000:NEXT:Z = Z-l:IFZ<4THENZ = 4:C=RND(l)*10 + 4: 
ONINTERVAL=ZGOSUB380:GOTO130 

220 C=RND(1)*10 + 4:ONINTERVAL=ZGOSUB380:GOTO130 

230 GOTO 230 

240 '****IMPRIMIR TIEMPO ***** 

250 INTERVALOFF: LOCATE 6,0:PRINTSC:LOCATE18,0:PRINTLF : LOCATE26,0:PRINTINT(TIME/ 

50);:INTERVALON:RETURN 
260 '**** LEER STICK Y PUNTOS *** 

270 INTERVALON:D = STICK(0):IFD=1THENGOSUB320ELSEIFD = 3THENGOSUB330ELSEIFD = 

5THENGOSUB340ELSEIFD = YTHENGOSUB350 
280 IFVPEEK(W) = 36THENSC = SC+ 10: FORS=0TO8: INTERVALOFF: NEXT:GOSUB250 
290 IF VPEEK(W) = &HD7ORVPEEK(W) = &HDBORVPEEK(W) = 6THENGOSUB420 
300 RETURN 

310 '**** MOVER FLECHA ***** 

320 Y=Y-8:Q=0:VPOKEW,&HDB:W=W-32:RETURN 

330 X=X+8:Q=1:VP0KEW,&HDB:W=W+1:RETURN 

340 Y=Y + 8:Q=2:VPOKEW,&HDB:W=W+32:RETURN 

350 X=X-8:Q=3:VPOKEW,&HDB:W = W-l:RETURN 

360 SC = SC+10:GOSUB250:RETURN 

370 '*** MOVER FANTASMA **** 
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380 IFF<XTHENF=F+3ELSEF = F-3 
390 IFG<YTHENG = G + 3ELSEG = G-3 

400 SOUND13,0:LOCATE26,0:PRINTINT(TIME/50):RETURN 
410 -***** MUERTE ***** 

420 SPRITEOFF:INTERVALOFF:FORA=0TO15:PUTSPRITE1,,A > Q:BEEP:COLOR > ,A: 

NEXT:GOSUB440:LF=LF-1:IFLF=0THEN470ELSECOLOR,,1:FORA=0TO100:PUTSPRITE0, 
(VPEEK(6917)-4,VPEEK(6916)-4),RND(1)*15,6:S0UND6,A:NEXT 

430 PUTSPRITE0,(0,-16):PUTSPRITE1,(30,-16):RETURN130 

440 SOUND7,&B00111:SOUND8,16:SOUND11,88:SOUND12,200:SOUND13,0:RETURN 
450 SCREEN0:LIST10-30 
460 '**** FIN ########## 

470 COLOR3,1,12:SCREEN3:OPEN"GRP:"AS1:DRAW"BM20,60":PRINT#1,"#FIN#" ; 

:A$ = INPUT$(1):BEEP:CLOSE:SCREEN1:GOSUB560:GOTO60 
480 '***** PRESENTACION ***** 

490 COLORI, 10, 10:SCREEN1:KEYOFF:WIDTH24:LOCATE0, 10:PRINT"AB EL BOSQUE MALDITO 
AB";:LOCATE0,20:PRINT"ALEJANDRO F. BRIZUELA":FORA=0TO1000:NEXT: 
A$ = "E4RE2REUE2UEU2EU2UE2RER8F2DFD1 1FD3FDFG3L4HL6GLGL7HUH2LHL2": 
COLOR15,12,2:SCREEN3:LINE(40,60)-(210,160),3,BF 

500 DRAW"BM60,120S16C15" + A$:PAINT(125,100),14,15:CIRCLE(130,70),8,1:PAINT(130, 

70),8,1:CIRCLE(155,70),8,1:PAINT(155,70),8,1:CIRCLE(140,120),20,1,0,180*3.14159/ 
180 

510 PLAY"T68S12M88605G4.L16FE-F4.E-FG4. 

FE-L8FGL16FE-DCL1 1S10M60000E-DCE-DCV15F4. L16E-FG4. 

FE-L8FGL16FE-DE-S13M1000C1","T68V12L2O4GG + AA-V15GG+AA-GG+AA-"," 

T68O4V8L11E-DCV10E-DCE-DCV12E-DCE-DCE-DCE-DCE-DCV15E-DCE-DCE-DCE 

- DCE - DCE - DCE - DCE - DCE - DCE - DCE - DCE - DC4 
520 PLAY"T255O7L64S10M60000GE-CO6GE-CO5GE-CO4GE-CO3GE-CO2GE-T32C4", 

"T255L6406GE-C05GE-C04GE-C03GE-C02GE-C01GE-C" 
530 IF PLAY(0) = 0THENSOUND7,&B00111:SOUND8,16:SOUND9,16:SOUND6,0:SOUND13, 

0:RETURN ELSEVDP(2) = RND(1)*255:GOTO530 
540 GOTO540 

550 '** TABLA DE PUNTUACION 
560 IF SC<SC(6) THEN RETURN 

570 COLORI, 10, 12: VPOKEBASE(6)+4,&HB2:VPOKEBASE(6) + 26,&H4E 
580 LOCATE4,10:INPUT"NOMBRE:";N$ 

590 IF SC>SC(1)THEN FORA=10TO2STEP-1:SC(A) = SC(A-1):N$(A) = N$(A-1): 

NEXT:SC(1) = SC:N$(1) = N$:GOTO650 
600 IF SC>SC(2)THEN FORA= 10TO3STEP- 1:SC(A) = SC(A- 1):N$(A) = N$(A- 1): 

NEXT:SC(2) = SC:N$(2) = N$:GOTO650 
610 IF SC>SC(3)THEN FORA=10TO4STEP-1:SC(A) = SC(A-1):N$(A) = N$(A-1): 

NEXT:SC(3) = SC:N$(3)-N$:GOTO650 
620 IF SC>SC(4)THEN FORA= 10TO5STEP- 1:SC(A) = SC(A- 1):N$(A) = N$(A- 1): 

NEXT:SC(4) = SC:N$(4)=N$:GOTO650 
630 IF SC>SC(5)THEN FORA=10TO6STEP-1:SC(A) = SC(A-1):N$(A) = N$(A-1): 

NEXT:SC(5) = SC:N$(5) = N$:GOTO650 
640 IF SC>SC(6)THEN FORA=10TO7STEP-1:SC(A) = SC(A-1):N$(A) = N$(A-1): 

NEXT:SC(6) = SC:N$(6) = N$:GOTO650 
650 WIDTH 24:LOCATE0,0:PRINT"$ TABLA DE PUNTUACION $";:LOCATE0, 1:PRINTSTRING$(24, 

"/?");:FORU = 1TO6:LOCATE0,U+1:PRINT"Q ";N$(U);TAB(14);SC(U);TAB(23);"Q";: 
NEXT:PRINTSTRING$(24,"/?");:FORU=0TO2000:NEXT:RETURN 
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LOS MEJORES 
DE INPUT MSX 



PUESTO TÍTULO PORCENTAJE 

1° SOCCER 17,8 % 

2 o KñIGHT LORE 14,5% 

3 o HERO 14, 1 % 

4 o GREEñ BERET 10,4 % 

5 o CAMELOT WARRIORS 9,2% 

6 o KñIGHT MARE 8 % 

7 o YIE AR KUñG-FU 7, 1 % 

8 o ALIEriS-8 6,5 % 

9 o PROFANATION 6,5 % 

10° BATMAfi 6 % 



100,0% 

Para ía confección de esta relación únicamente 
se han tenido en cuenta las votaciones enviadas 
por nuestros lectores de acuerdo con la sección 
«LOS MEJORES inPUT». 

Marzo de 1987 
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LA AVENTURA 
AFRICANA 



LiuincsTonc 




Estamos en 1871, bajo la identidad 
de Henry Morton Stanley, reportero 
del «New York Herald», y nuestro 
objetivo es rescatar y hacer un 
reportaje a David Livingstone. 
Livingstone es un famoso explorador 
inglés que en 1866 se fue a Africa, 
en su segunda expedición, con el 
deseo de hallar las fuentes de los ríos 
Zambeze y Nilo. 

En nuestro largo recorrido por 
tierras africanas deberemos buscar y 
recoger las cinco piedras sagradas de 
la tribu de los Ujiji, y llevarlas al 
templo sagrado de dicha tribu, ya 
que este poblado es donde 
suponemos encontrar al Dr. 
Livingstone. Pero por si esto fuera 
poco, también tenemos que estar 
atentos a nuestros niveles de 
hidratación y de nutrición. Para que 
éstos no bajen más de la cuenta 
debemos ir comiendo y bebiendo 
durante nuestra travesía africana. 




Dicha comida la encontraremos con 
cierta asiduidad, lo difícil será 
alcanzarla. 

Nosotros conocedores de África, y 
si no, lo acabaremos siendo, sabemos 
los peligros que nos esperan: 
animales salvajes, obstáculos 
naturales, tribus antropófagas, y para 
superarlos hemos añadido a nuestro 
equipaje tres armas y una pértiga. La 
primera es un bumerán, un recuerdo 
de uno de nuestros viajes por 
Australia. Éste es muy eficaz y si 
sabemos aprovecharnos de su 
peculiar recorrido nos será muy útil. 
Nuestra segunda arma es un cuchillo, 
que lanzamos con gran precisión 
contra nuestros enemigos. Y la 
última arma son las granadas, muy 
potentes y de gran efecto, pero 
cuidado al lanzarlas, ya que nos 
pueden alcanzar a nosotros mismos. 
La pértiga no es un arma pero nos 
será muy útil, ya que nos permite 



saltar altiplanos, cascadas, montañas, 
abismos,... 

Quizá algún día tras horas y horas 
de expedición logremos encontrar al 
Dr. Livingstone y decir la célebre 
frase: «El Dr. Livingstone, 
supongo». 
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VIVA LAS VEGAS 



Cuando Peter recibió un telegrama 
que le notificaba que su tía había 
muerto y le hacía heredero universal 
de su fortuna, nunca creyó que la 
última voluntad de su tía le 
acarrearía tantos problemas. Y es 
que para heredar la fortuna de su 
parienta, tenía que igualar la hazaña 
que ella había realizado en la década 
de los años treinta: ganar un millón 
de dólares en Las Vegas, ¡y en una 
sola noche! 

Lo primero que tiene que 
conseguir Peter es llegar al 
aeropuerto para coger el avión de las 
11:20 hacia Las Vegas (el billete le 
llegó junto al telegrama con 200 
dólares). Él se apresura a hacer la 
maleta y salir a la calle, pero sus 
acreedores le persiguen y no le 
dejarán en paz hasta que no les 
devuelva todo lo que le dejaron 
prestado. Al fin una bella señorita le 
acompañará hasta el aeropuerto, y 
allí empezará la segunda parte de la 
aventura. Las prisas por coger el 
avión y los piratas aéreos, serán las 
dificultades a superar en esta 
segunda etapa. Y ahora el sprint 
final, la gran hazaña: lograr un 



DATOS GENERALES 

Título La herencia 
Fabricante IDEALOGIC 
Clase de programa juego 

Formato cassette y disquette 



CALIFICACION (sobre 10 píos.) 



Originalidad 

Interés 

Gráficos 

Color 

Sonido 



Total 



38 



millón de dólares en una sola noche. 
La ciudad del vicio está a nuestros 
pies, y los casinos nos ofrecen tres 
interesantes juegos: el jackpot, la 
ruleta americana o los dados; 
alternando de un juego a otro y con 




un poco de suerte quizá logremos 
heredar una fortuna. 

Esta es la trama de la original 
videoaventura de IDEALOGIC 
llamada La herencia. Para jugar sólo 
nos hace falta el joystick o las teclas 
del cursor, esta elección mediante el 
emplazamiento del cursor permite 
coger objetos, situarlos en otro 
lugar, abrir puertas, llamar al 
ascensor, comprar comida... y esto 
sin escribir una sola palabra. El 
programa se encuentra dividido en 
tres partes: el edificio, el aeropuerto 
y Las Vegas; al superar cada etapa 
se nos da una contraseña para 
acceder directamente a la siguiente. 
O sea, si queréis descubrir hasta 
dónde os puede llevar la última 
voluntad de una peculiar anciana 
éste es vuestro juego. 





★**★*★★★★★★★★★★★★★★★★★★★★ 

LA CONQUISTA 
DEL ESPACIO 



Némesis era un planeta tranquilo 
hasta que sus enemigos decidieron 
destruirlo por completo. Para salvar 



a este antiguo pueblo se nos lanza al 
espacio en el Warp Ratter, un 
prototipo de caza superespacial, al 



al podremos ir perfeccionando con 
ás armas de ataque y fuerzas de 
defensa. Si recogemos las cápsulas de 
fuerza de nuestros enemigos. 
Empezamos luchando con un 
pequeño misil como única arma, 
gracias a él y a nuestra habilidad 
logramos destruir a unos cuantos 
enemigos. Luego recogemos sus 
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cápsulas de fuerza y reforzamos 
nuestra nave con un potente láser. El 
láser es mortífero y rápidamente 
recogemos otras cápsulas de fuerza 
que nos permiten sacar a combate el 
sidewinder, una segunda nave que 
nos sigue como si fuera nuestra 
sombra. Las siguientes cápsulas las 
utilizamos para aumentar nuestra 
velocidad. Una vez somos más 
veloces que la luz usamos las 
cápsulas de fuerza para armarnos con 
misiles aire-tierra. Cuando creíamos 
ser invencibles e íbamos a crear una 
barrera de campo, que nos hiciera 
invulnerables al ataque de los 
enemigos, nos ha alcanzado un misil 
y nos ha destruido. 




DATOS GENERALES 

Título Némesis 

Fabricante KONAMI 
Clase de programa juego 

Formato 

cartucho ROM 



CALIFICACION (sobre 10 píos.) 



Originalidad 

Interés 

Gráficos 

Color 

Sonido 



Total 



40 




Ya íbamos a poner cinco duros 
más en la ranura de la máquina 
cuando nos dimos cuenta de que 
estaba delante de un MSX con un 
cartucho de Konami. Y es que la 
calidad de este programa es casi 
insuperable. La acción se desarrolla 
de forma horizontal, y hay un scroll 
de pantalla continua de izquierda a 
derecha. Nuestra nave se mueve 
libremente por toda la pantalla y su 
velocidad es variable, la podemos 
aumentar hasta ser ocho veces mayor 
que la inicial, además podemos 
disparar a discreción sin límite de 
balas. Al final de cada nivel hay una 
pantalla de especial dificultad que es 
necesario pasar para acceder al 

★***★★★***★★★★★**★★*★*★*★ 



siguiente nivel. Entre nivel y nivel 
hay una pantalla de bonus. En un 
principio contamos con tres naves, 
pero al final de cada partida, si lo 
deseamos, podemos continuar desde 
donde habíamos acabado la anterior, 
pulsando F5, pero el marcador 
volverá a cero. Además este juego 
tiene la posibilidad de que sean dos 
los jugadores que participen de 
forma alternativa en las 
emocionantes y espectaculares 
peripecias espaciales. 

Estoy seguro de que esta novedad 
de Konami os convertirá en unos 
intrépidos exploradores del espacio, 
y las horas de entreno se os pasarán 
volando. 



á 




TELARIUM: 

LAS AVENTURAS 

INTERACTIVAS 




Philips e Idealogic han lanzado al 
mercado una serie de programas 
interactivos entre los que destacan 



títulos como: Cita con Rama, Dragón 
World, El Mago de Oz o Fahrenheit 
451 . Pero ¿qué es un programa 



t>EMO «N NftftCH» 
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interactivo? Estos programas se 
distinguen de los juegos normales 
por el alto porcentaje de 
participación del usuario. Basándose 
en una historia real o ficticia, se nos 
prepara un juego y a partir de ese 
momento el desenlace final de la 
historia depende de nosotros, de 
nuestro poder analítico, del uso que 
hagamos del entorno y de lo que 
conozcamos la obra original. Pero 
estos juegos se basan en best-sellers 
fáciles de adquirir y en caso de apuro 
una lectura del libro nos puede 
ayudar a llegar con éxito al final del 
programa. Este se divide en tres 
partes: la parte visual, el texto 
explicativo y el sonido. La más 
importante de ellas es el texto. Saber 
leer bien lo que nos dicen e 
interpretarlo correctamente es una 
de las claves de estos juegos. 
Después de leer el texto que refleja 
una acción, un paisaje, una situación 



o un diálogo entre personajes, 
nosotros, que representamos el papel 
de protagonistas en la historia, 
introducimos una instrucción con la 
orden precisa que queremos llevar a 
cabo. Como hemos escogido una de 
las muchas que se nos presentaban 
(por ejemplo: podíamos ir al N, S, E 
o O y hemos elegido ir hacia el E) el 
desenlace de la historia tomará un 
rumbo determinado. La imagen es 
opcional y refleja de forma fidedigna 
el texto, y a veces sigue a ésta una 
de las veinte composiciones 
musicales de cada programa. 

Junto con los disquettes en que se 
encuentra grabado el juego se nos 
entrega una carpeta ilustrada con un 
librito de instrucciones y orientación 
sobre la trama de la historia. En el 
librito se nos especifica el 
vocabulario que podemos usar para 
comunicarnos con el ordenador y 
también cómo hacerlo. La serie 
Telarium cuenta también con un 
analizador sintáctico de lenguaje 
capaz de comprender entre 5(K) y 7CK) 
palabras. De esta manera el usuario 
puede hablar con los distintos 
personajes. Aparte cada juego tiene 
un distinto nivel de dificultad que va 
desde un juego como El Mago de Oz, 
hasta Perry Masón basado en la serie 
escrita por Erle Stanley Gardner. Y 
es que el poder pedagógico de este 
tipo de programas es otra de las 




características que les diferencia de 
la gran mayoría de los juegos. El 
niño que se ponga a jugar con La isla 
del tesoro, basado en la novela de 
Stevenson, conocerá una obra 
literaria, aprenderá un vocabulario, 
razonará ante unas situaciones más o 
menos ficticias y construirá frases 
sintácticamente correctas. Y no será 
un receptor pasivo pues estará 
actuando como parte activa y 
dinámica del programa. 

Idealogic te acerca la posibilidad de 
utilizar este tipo de programas, hasta 
ahora privados del público 
anglófono. La serie Telarium te 
permite convertirte en el héroe de tu 
propia aventura; ésta posee multitud 
de posibles finales, permitiendo que 
nos encontremos en diferentes 
situaciones cada vez que juguemos 
con ella. 

Ahora contaremos algunas de las 
aventuras: 



FAHRENHEIT 451 



Esta aventura interactiva está 
basada en el libro del mismo nombre 
de Ray Bradbury, y existe también 
una versión cinematográfica de esta 
novela de ciencia ficción, dirigida en 
1966 por el cineasta francés Franqois 
Truffaut y protagonizada por el actor 
austríaco Oskar Werner y la bella 
actriz británica Julie Christie. 

La historia se desarrolla en Nueva 
York, pero es una ciudad totalmente 
diferente de la actual. Un lugar 
donde los bomberos no acuden para 
salvar edificios ni vidas, sino para 
quemar. Y quemar, sobre todo, los 



libros. Guy Montag, el protagonista, 
es un ex bombero que se ha unido a 



un movimiento clandestino que tiene 
como objetivo la conservación de la 





9 
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literatura universal, y para ello cada 
miembro del grupo memoriza un 
libro entero o la obra completa de 
un autor. Pero como todo 
movimiento clandestino, éste 
también es perseguido por la ley y 
Montan deberá ir con cuidado de no 
ser descubierto por los sabuesos 
mecánicos o por el cuerpo de 
bomberos. 

Podemos aseguraros con total 



convencimiento que Fahrenheit 451 

constituye uno de los mejores 
programas de la serie Telarium. Y 
las ilustraciones presentadas en 
pantalla son de gran calidad y 
realismo, desde las fuentes, los 
hoteles o el hospital. Además es uno 
de los programas con un nivel de 
dificultad más elevado y los factores 
de que depende la vida de Montag 
van desde la memorización de citas 
literarias, que sirven para 
comunicarse entre miembros de la 
resistencia a esta antibibliófila 
dictadura, hasta llevar una tarjeta de 
identidad con la información correcta 
y así poder pasar tranquilamente las 
inspecciones de los cuerpos de 
bomberos. 

Si aceptas el reto que te propone 
Idealogic te darás cuenta de que 
nunca hasta ahora una aventura 
había dependido tanto de ti. 



DATOS GENERALES 

Título Fahrenheit 451 
Fabricante Idealogic-Philips 

Clase de programa aventura 
interactiva 
Formato disquette 




CALIFICACION (sobre 10 ptos.) 



1 



Originalidad 

Interés 

Gráficos 

Color 

Sonido 



Total 



42 



★★★★★★★★★★★★★****★★★★★★*★ 



DRAGONWORLD 




El protagonista es Amsel, un 
científico e investigador y de alguna 
manera visionario. El Último Dragón, 
un viejo amigo de Amsel, ha sido 
secuestrado, y le llama a través de la 
Perla del Dragón para que vaya a 
rescatarlo. El Último Dragón está 
cautivo en algún lugar del Sur de 




DATOS GENERALES 

Título Dragonworld 
Fabricante Idealogic-Philips 



Clase de programa aventura 
interactiva 

Formato disquette 



Simbala. Pero Amsel no está solo, 
cuenta con la ayuda de Hawkwind, 
conocedor de las tierras de Simbala. 
En un principio estás solo y tras 
recibir el mensaje de socorro del 
Último Dragón irás a buscar a 
Hawkwind, y juntos emprenderéis un 
largo viaje en busca de vuestro amigo. 



CALIFICACION (sobre 10 ptos.) 



Originalidad 

Interés 

Gráficos 

Color 

Sonido 



Total 



37 



★★★★★★★★★★★★★★★★★★★★★***★ 



EL MAGO DE OZ 



Dorothy reposaba tranquilamente 
en casa de sus tíos, en una granja de 



Kansas. De repente un resplandor 
llamó su atención, un ciclón se 



acercaba a la casa y estaba a punto 
de absorberla. Tuvo el tiempo justo 
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para entrar a la casa, coger a Toto, 
su perro, y agarrarse al palo de la 
cama. 

El ciclón se llevó casa, tierra y 
árboles por los aires. Dorothy 
después de un largo sueño despierta 
dentro de la casa, todo está patas 
arriba, Toto ladra ante la puerta y se 
acerca para calmarlo, abre la puerta 
y se encuentra delante de un 
paisaje tan bello que el deseo de 
explorarlo le hace perder cualquier 
miedo. 

¿Te atreves a iniciar un viaje por 
el País de Oz junto a Dorothy hasta 
encontrar el camino de regreso a 
Kansas? 

AI igual que aconteciera con 
Fahrenheit 451, El mago de Oz, antes 
de pasar a la pantalla de tu 
microordenador, se constituyó en un 
sonado éxito cinematográfico en dos 
ocasiones: en 1939 y 1985. 




***★★★*★★★*★★**★**★★*★*★★ 



LAS ARTES 
MARCIALES 



AVENGER es la segunda parte de 
THE WAY OF THE TIGER. Pero 
esta vez no se trata de efcctuar unos 
combates cuerpo a cuerpo, con 
espadas o palos, ahora tenemos una 
misión más difícil. Hemos de vengar 
la muerte de nuestro padrastro y 
recuperar los papiros de Ketsuin. 
Para ello deberemos ir al castillo de 
Quench Heart y encontrar las llaves 
que nos abrirán las puertas de las 
murallas. Una vez dentro lucharemos 
con los guardianes y si salimos 



victoriosos quizá logremos recuperar 
los papiros de las manos del malvado 
Yeamon. Para realizar esta hazaña 
contamos con la ayuda de Kwon, 
quien responderá a nuestra llamada 
reponiendo nuestras fuerzas, siempre 
y cuando no abusemos de su 
benevolencia. Nuestras armas son los 
shuricans, la espada mágica, el 
guante de malla y una palanca. 
Además de nuestro profundo 
conocimiento de las artes marciales. 
A lo largo de nuestro recorrido por 



el castillo de Quench Heart, 
encontraremos tesoros, amuletos, 
hechizos, cuerdas mágicas y los 
papiros. Cuando estén en nuestra 
posesión todos los papiros debemos 
escapar del castillo. 

Este programa de GREMLIN 
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GRAPHICS que tiene como subtítulo 
THE WAY OF THE T1GER II es 
una mezcla de los juegos de artes 
marciales y de los juegos de 
laberintos. Esta combinación da al 



Electric Software nos presenta un 
nuevo programa del estilo de Sweet 
Acorn. Esta vez el protagonista es 
Chack'n y su misión es rescatar a 
unos corazones que están cautivos en 
las profundidades de un viejo 
castillo. Para lograr este objetivo 
Chack'n deberá vencer a los 
fantasmas del castillo, para ello 
cuenta con la ayuda de unas bombas 
de gran efecto. Pero ¡cuidado! 
porque tanto pueden matar a los 
fantasmas como a nosotros mismos. 
En cada pantalla después de lograr 
liberar al corazón o corazones que 
allí se encuentren deberá llegar hasta 
la salida de esa habitación evitando a 




programa un dinamismo y un nivel 
de dificultad que no existían en su 
predecesor. La pantalla se encuentra 
dividida en tres partes bien 
diferenciadas. En la parte inferior se 
muestran nuestras posesiones, en el 
lazo izquierdo se nos indica la 
energía que tenemos tanto nosotros 
como los guardianes, en el derecho 
hay un retrato de cada uno de los 
guardianes y en la parte central se ve 
a vista de pájaro el lugar del castillo 
donde nos encontramos. El 
movimiento del muñeco protagonista 
es rápido y desenvuelto y los gráficos 
son de un tamaño menor que en el 
anterior programa y esto permite que 




los fantasmas y en un corto período 
de tiempo. Una vez finalizamos con 
éxito la misión en una pantalla 
pasamos a otra de mayor nivel, y así 
sucesivamente. Este sucesivo 
aumento del nivel crea una cierta 
adicción hacia el programa y una 
intriga por ver si seremos capaces de 
superar el próximo nivel y cuáles 
serán las siguientes dificultades con 
las que nos encontraremos. Este 
factor suple de alguna forma la 
rutina de la similitud entre las 
pantallas. 

Lo más destacable de este 
programa es su protagonista, 
Chack'n. un ser alado y patilargo 




aparezcan más objetos en pantalla. 
Para completar el programa se le han 
incorporado dos opciones adicionales 
como son la de parar el juego o 
anular la partida. 



DATOS GENERALES 


Título Chack'n pop 




Fabricante Electric Software 




Clase de programa juego 




Formato cassette 








CALIFICACION (sobre 10 ptos.) 


Originalidad 


6 


Interés 


6 


Gráficos 


7 


Color 


7 


Sonido 


6 


Total 


32 



que con su parsimonioso andar 
llegará a ponernos frenéticos, sobre 
todo si un fantasma nos está 
siguiendo. 

Una vez logremos alcanzar la 
salida sanos y salvos y podamos 
pasar a un nivel más difícil, Chack'n 
lo celebrará saltando de alegría 
y nosotros, por supuesto, 
participaremos de su 
felicidad. 



★ ★★★★★★★★★★★★★★★★★★*★<★★*★ 

ELIMINA LOS , 
FANTASMAS I 



★★★★★★★★★★★★★★★★★★★★★★★★★ 
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F— tade Software 




LOS BOINAS 
VERDES 



Este juego de Konami completa un 
producto cinematográfico que tiene 
como máximo exponente películas 
como Rambo, y se caracteriza por su 
alto contenido bélico. Pero esta vez 
el producto nos lo venden los 
japoneses, aunque los malos siguen 
siendo los rusos que quedan 
gráficamente representados mediante 
unos personajes siniestros y 
destructores. Éstos han secuestrado a 
nuestros compañeros, y nosotros 
bajo el aspecto de un fuerte y 
omnipotente hombre yanqui vamos a 
rescatarles, desafiando las infinitas 
fuerzas del mal. Cada vez que 
avanzamos hay una masacre y el 
terreno se llena de cadáveres. Pero 
la dureza del personaje le hace 
seguir y conseguir un lanzallamas. 




Ahora ya puede enfrentarse a los 
lanzagranadas y campos de minas del 
enemigo con mayor garantía de 
éxito, ya que usando su potente 
arma, todo lo que se encuentre 
delante quedará destruido. A lo 
largo del recorrido el escenario 
cambiará varias veces, pero la trama 
siempre será la misma: avanzar y 
matar. Hasta que al fin, tras matar a 
media población rusa, liberamos a 
nuestros compañeros. 

Técnicamente el juego es correcto, 
aunque no es a lo que nos tiene 
acostumbrados Konami. Los gráficos 
son variados y los escenarios van 
ligados al tema en que se basa el 



DATOS GENERALES 

TITULO Green Beret 

FABRICANTE Konami 
CLASE DE PROGRAMA juego 
FORMATO cartucho ROM 





CALIFICACION 


(sobre 10 ptos.) 


ORIGINALIDAD 


5 


INTERES 


6 


GRAFICOS 


8 


COLOR 


7 


SONIDO 


6 


TOTAL 


32 



juego. El movimiento es casi 
unidimensional, pero también existe 
la posibilidad de saltar o subir y 
bajar escaleras, por lo que los 
esprites que circulan por toda la 
pantalla toman un movimiento en 
dos dimensiones, no obstante esta 
sencillez de movimiento el juego es 
lento. Por lo que respecta a los 






gráficos adicionales hay gran 
variedad de ellos y son de gran 
originalidad y el sonido se asemeja a 
una marcha militar. 



NO OLVIDES EL TELEFONO... © 

Cuando, por cualquier motivo, nos escribas, no 
olvides indicar tu número de teléfono. Así nos será más 
fácil y rápido ponernos en contacto contigo. Gracias. 
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INTERCAMBIO programas con chicos y 
chicas de toda España. Poseo entre 
otros: Profanation, Camelot Warriors, 
Jack the Nipper, Green Beret, etc. Es- 
cribirá: Feo. Javier Manresa. C/ Buenos 
Aires, n.° 6, 2D. 30011, Murcia. 



CAMBIO/VENDO juegos MSX tales 
como: Samantha Fox, Knightmare, 
Alien 8, Hero Sky Jaguar, etc. Me gus- 
taría tener: Profanation, Batman, Le 
Mans, Sorcery, Road Fighter, etc. Angel 
Matías Rodríguez, c/ Reyes Católicos, 2- 
17. Telf.: (96)379 81 19. Xirivella. Va- 
lencia. 



VENDO Music-Module de Philips para 
MSX con cinta de efectos especiales, 
totalmente nuevos y Spectravideo 328 
con manuales, grabadores y progra- 
mas por 40.000 los dos; 22.000 por se- 
parado. José Muñoz. Avda. Suecia 4. a , 
30. Valencia - 46010. Teléfono: 
(96) 369 95 71. 



CAMBIO/VENDO programas comercia- 
les MSX en cinta o disco de 3,5. Pri- 
meros títulos. También vendo SVI-728 
y FLOPPY DISK por un precio irrisorio. 
Iñaki Fernández Izquierdo, c/ Zamakoa, 
7, 5.° dcha. Telf.: (94) 456 33 72. 48960 
Galdácano. Vizcaya. 



VENDO/CAMBIO cartucho MSX. 
TRACK & FIELD II de Konami. Luis Sán- 
chez Sabater, c/ Concepción Arenal, n.° 
15D, 8.° 2.°. Telf.: (964)21 92 82. Cas- 
tellón. 



DESEARÍA contactar con usuarios del 
MSX para cambiar impresiones, etc. y 
formar un club MSX, preferentemente 
para Gijón. Angel Muñoz Alcalde, c/ Río 
Sella, n.° 37, 3.° izq. Cantrueces. Gijón. 
Asturias. Telf.: 15 41 47. 



CAMBIO/VENDO juego Knight Lore. In- 
teresados llamar/escribir a: Domingo 
Pérez Díaz, c/ Amador Montenegro, n.° 
23. Telf.: (986)41 69 42. Vigo. Ponte- 
vedra. 



EL ZOCO 

SÁCALE provecho a tu ordenador MSX 
formando tu propia peña de lotería pri- 
mitiva con los amiguetes. Llamar a: Mi- 
guel Ángel. Telf.: (96) 365 10 52. Valen- 
cia. De 6 a 8 tarde. 



CAMBIO juegos de Konami (Kung-fu I, 
Road Fighter, Tenis, etc.) por uno de es- 
tos juegos: Taewondo, Hisper Sports 
III, Kung-Fu II, Green Beret o por un 
Joystick. David Lorente, c/ Barcelona, 
n.° 98, 4.° A. Granollers. Barcelona. 
Telf.: (93) 870 29 13. 



VENDO ordenador HIT BIT 75P de 80K, 
incluyendo cables, 2 manuales, emba- 
laje original, BITCORDER SDC 500 de 
SONY, 5 libros (lenguaje máquina, pro- 
gramas, etc.), 100 programas (Soccer 
Konami, Jet Fighter, BC Grog's Reven- 
ger, etc.), más de 100 revistas (INPUT 
MSX, MSX club, etc.) todo por 50.000 
ptas. Alberto García Pérez, c/ Bages, n.° 
63, 1.° A. Tarrasa. Barcelona. Telf.: 
(93) 785 51 52. 



VENDO/CAMBIO Y COMPRO juegos 
para MSX. Llamar al 219 67 82. Pregun- 
tar por Marc Valero. Barcelona. 



VENDO ordenador Philips VG 8000, 
manuales y cables de conexión (en 
buen estado) por 22.000 ptas. José Luis 
Rosa Arroyo, c/ San Luis n.° 37, int. 3. 
Telf.: (93) 219 56 88. Barcelona. 



VENDO ordenador SONY HIT BIT MSX 
HB-75P 80K, con manual de instruccio- 
nes, grabadora y mando de juegos. 
Todo por: 35.000 ptas. Feo. Muñoz Mo- 
reno, c/ Nou de la Rambla, n.° 109 bis. 
Barcelona - 08004. Telf.: (93) 329 88 89. 



INTERCAMBIO programas tanto en 
cinta como en disco de 3,5". Luis 
Amado Regó, c/ Puente, n.° 25, 3.° 
36500. Lalín. Pontevedra. 



CAMBIO/VENDO programas MSX. Po- 
seo todos los de Konami y de Sony; y 
muchos otros cassettes. Llamar a Alex. 
Telf.: (93) 332 54 30. Barcelona. 



VENDO impresora Philips MSX VW- 
0020 comprada hace cuatro meses, por 
cambio de sistema (con manual de re- 
ferencias y garantía). Precio a convenir. 
Jorge Muñoz Carmona. Pje. las Celin- 
das, n.° 1, 3.° B. Ecija (Sevilla). CP.: 
41400. Telf.: (954) 83 20 04 de 5 a 8 de 
la tarde. 



BUSCO copión para Philips VG 8020, 
precio a convenir. Espero ofertas. José 
Miguel Lambán, c/ Margarita Xirgu, n.° 
20, 5.° D. Telf.: 52 02 80. Zaragoza - 
50015. 



VENDO Camelot Warriors, Martin Bas- 
ket, Batman, etc. o cambiar por The 
Way of the Tiger I o II. Llamad de 8 a 9. 
Telf.: 20 62 39. Juan Carlos González. 
C/ Fray Luis de León, 15-5.° izq. León - 
24005. 



CAMBIO Juegos MSX (Ping-Pong, Hy- 
per II, Super Cobra, Boxing, Green Be- 
ret... etc.) 80 en total. Juan Manuel Gar- 
cía Pedreguera. C/ Juan José Pérez del 
Molino, 13, 4.° dcha. Telf.: 37 20 19. 
39006. Santander. Cantabria. 



CAMBIO juegos no originales a conve- 
nir. Tennis, Hyper Sports 2 y 3, Track 
Fíeld 1 y 2, Antartic Adventure. Todos 
de Konami. Santi y Carlos Arribas. C/ 
Lasaga Larreta, P-25, 1 .° B. Torrelavega. 
Cantabria. 



COMPRO el juego GREEN BERET, pre- 
ferentemente pasado a cinta. Llamar o 
escribir a: Enrique García Vega. C/ Lan- 
cia, 5-8.° dcha. 24004. León. Telf.: 
(987) 20 10 81. 



CAMBIO últimos programas. Los me- 
jores juegos. Me interesan tipo Arkade 
o Conversacionales. Thomas C.S. Telf.: 
(93)417 69 33. Barna. 



VENDO ampliación de 64K Sony HBM- 
64 por sólo 8000 ptas. Totalmente 
nuevo. Ignacio Marco Sancho. C/ Cura, 
1, 4.° izq. Telf.: 21 64 09. 02001. Alba- 
cete. 



Fe de erratas: 

Por error, en el anterior número de INPUT, algunas de las líneas de programa publicadas figuraban con incorrecciones. 
Se trata de las siguientes: en el programa Música y simulación de partituras, a partir de la línea 220 los 0 que figuran 

entre comillas deben suprimirse por 0 (de octava). 
En el artículo LOTO MSX, las líneas 230 y 590 deben figurar de la siguiente forma: 
230 IF A=M(K,T) THEN GOTO 440 
590 PRINT MF(L,0); TAB(5); MF(U); TAB(5): MF(L,2); TAB(5): MF(L,3); TAB(5); MF(L,4); TAB(5), MF(L,5). 
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te ofrece el mejor programa 
de simulación de vuelo 
creado hasta la fecha. 





A FL1GHT 
SIMULATION 
PHOGRAM 




t MSX A n 

AMST ío?E 
COMMODORE 




AMf o P 0 oPe 



El Spitf iré 40 no es sólo el mejor simulador de vuelo de los aviones 
más famosos de todos los tiempos, también es una espectacular 

aventura de guerra. 
La escena es el verano de 1940 y tú eres un piloto recién entrenado, 

destinado en un Escuadrón Spitfire en algún lugar del Sureste 
de Inglaterra. Como uno de tantos jóvenes en 1940, aprenderás que 
un Spitfire no es un avión corriente, descubrirás sus especiales 
capacidades y lo más importante de todo, cómo manejarlo 

durante el combate. 

****** 



★ * * 



Si deseas información y participar en los 
importantes sorteos que ZÁFICHIP celebrará 
durante el año. . . ¡ESCRIBENOS! 



* * *♦ ortosTen tu tienda 

h abitualJ^^^****** 
****** 



ZAFIRO SOFTWARE DIVISION 

Paseo de la Castellana. 141. 28046 Madrid 

Tel. 459 30 04. Tel. Barna. 209 33 65. Télex: 22690 



Editado, fabricado y distribuido en España 
bajo la garantía Zafiro. Todos los derechos 
ZAFIR E reservados. 



HUEVO PRECIO LINÁMIC 




NANDO MARTIN 
BASKET MASTER 



Nunca nadie llegó tan lejos. 
Por primera vez en la Historia, un 
español jugará en la NBA. 
Fernando Martín se consolida co 
mo una figura mundial y DINAMIC 
se une a la alegría de toda la afi 
ción. 



ABU SIMBEL 
PROFANA TION 



A lo largo de 3.000 años bs mejo 
res exploradores han intentado 
profanar el templo de Abu Simbel. 
Llegar hasta la cámara mortuoria 
es inaccesible; salir con vida, im- 
posible. 

Todos lo que osaron entrar jamás 
regresaron. 

Ahora, Johnny Jones, nuestro hé 
roe, lo va a intentar. 



CAMELOT WARRIORS PHANT 



Si osas franquear la puerta del 
misterio olvida todo lo que cono 
ees, porque te internarás en un 
viaje sin retorno. Mundos pasados 
y futuros, magia negra, trampas 
ocultas. 

Aprieta la espada con tus puños y 
nunca, nunca eches la vista atrás. 



ornas es el único fuera de la 
ley capaz de arriesgar su vida en 
esta misión, no teme al peligro, no 
le importa el riesgo, no teme a la 
muerte... 




SX • MSX • MSX • MSX • MSX • MSX • 



DINAMIC SOFTWAHI . Pita, ih- Ef>p»ñ 
PEDIDOS CONTRA KU MHOI S 
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